informatica

1. Faça um programa que permita ao usuário preencher por leitura uma matriz 3x3 de números inteiros. Logo após, o programa deverá calcular e escrever a soma e a média dos elementos da matriz.Program Pzim ;
VAR M: ARRAY[1..3,1..3] OF INTEGER; i,j,SOMA: INTEGER;
MEDIA: REAL;
Begin
soma:=0;
For i:= 1 to 3 do begin for j:= 1 to 3 do begin write('Digite o valor paralinha ' ,i, ' e coluna ',j,' : '); read(m[i,j]); soma:=soma + m[i,j]; media:=soma/9; end; end; writeln('A soma dos elementos é ',soma, ' e a media é ',media:0:2);
End.2. Faça um programa em que se leia os valores inteiros de 2 matrizes A e B de 5 linhas e 3 colunas. Logo após, carregar uma matriz C, onde cada elemento de C seja a soma dos elementoscorrespondentes de A com B.

Program Pzim ;
VAR A,B,C: ARRAY[1..5,1..3] OF INTEGER; i,j: INTEGER; begin BEGIN
FOR i:= 1 to 5 do begin for j:= 1 to 3 do beginwrite(' Digite para matriz A o valor da linha ',i,' e coluna ',j, ' : '); read(A[i,j]); BEGIN write(' Digite para matriz B o valor da linha ',i,' e coluna ',j, ' :'); read(B[i,j]); END;
END;
END; writeln(' MATRIZ " C " '); for i:=1 to 5 do begin for j:=1 to 3 do beginc[i][j]:= A[i][j] + B[i][j];

write(c[i][j],' '); end; writeln; writeln; end;
end;