calculo da somatoria da diagonal principal

Descrição

Esconder código-fonte

PROGRAM EXERCICIO5;

USES CRT;

VAR
  MATRIZ: ARRAY[1..2,1..2] OF REAL;
  LINHA, COLUNA: INTEGER;
  SOMA:REAL;

BEGIN
  CLRSCR;

  SOMA:=0;

  FOR LINHA:=1 TO 2 DO
  BEGIN
    FOR COLUNA:=1 TO 2 DO
    BEGIN
      WRITE('DIGITE O NUMERO DA LINHA ',LINHA,', COLUNA ',COLUNA,': ');
      READLN(MATRIZ[LINHA,COLUNA]);

      IF LINHA=COLUNA THEN
        SOMA:= SOMA+MATRIZ[LINHA,COLUNA];

    END;
  END;

  WRITELN;

  WRITELN('A SOMA DA DIAGONAL PRINCIPAL DA MATRIZ : ',SOMA:2:3);

  READKEY;

END.