somatório de uma matriz 7x5

Descrição

Esconder código-fonte

PROGRAM EXERCICIO1;

USES CRT;

VAR
  MATRIZ: ARRAY[1..7,1..5] OF INTEGER;
  LINHA, COLUNA, SOMATORIA: INTEGER;

BEGIN
  CLRSCR;

  SOMATORIA:=0;

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

  FOR LINHA:=1 TO 7 DO
    WRITELN('A SOMATORIA DA LINHA ',LINHA,' : ',MATRIZ[LINHA,1]+MATRIZ[LINHA,2]+
             MATRIZ[LINHA,3]+MATRIZ[LINHA,4]+MATRIZ[LINHA,5]);

  FOR LINHA:=1 TO 7 DO
    FOR COLUNA:=1 TO 5 DO
      SOMATORIA:=SOMATORIA+MATRIZ[LINHA,COLUNA];

  WRITELN('A SOMATORIA DE TODA A MATRIZ : ', SOMATORIA);

  READKEY;

END.