fundamentos

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 para linha ' ,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 elementos correspondentes 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 begin write(' 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 begin c[i][j]:= A[i][j] + B[i][j]; write(c[i][j],' '); end; writeln; writeln; end; end; End.

3. Faça um programa em que se leia os valores de 2 vetores A e B de 8 posições. Em seguida, carregue um vetor C onde cada elemento de C é o maior valor entre os elementos correspondentes em A ou B.

Program Pzim ;
VAR A,B,C: ARRAY[1..8] OF INTEGER; X: INTEGER; begin FOR X:= 1 to 8 do begin write(' Digite o valor vetor A posição ',x, ' : '); read(A[x]); begin write(' Digite o valor