Questão (a)

=======================================
Ler duas matrizes A e B, cada uma com duas dimensões com cinco linhas e três colunas (5X3). Construir uma matriz C de mesma dimensão, sendo que C é formada pela soma dos elementos da matriz A com os elementos da matriz B. Apresentas os elementos da matriz C.
Ler dez elementos de uma matriz tipo vetor
Ler oito elementos de uma matriz A tipo vetor. Construir uma matriz B da mesma dimensão com os seus elementos multiplicados por 3 apresentar a matriz B
Ler uma matriz do tipo vetor com quinze elementos. Construir uma matriz B de mesmo tipo, sendo que cada elemento da matriz B seja o fatorial do elemento correspondente da matriz A. Apresentar a matriz B.
========================================
Leia duas matrizes A e B, cada uma com duas dimensões, 
cada uma 5x3  5 linhas e três colunas. construa uma matriz 
c com a mesma dimensão, sendo que C é formada pela soma dos elementos da matriz A com B, apresentar os dados da matriz C.
Program tres_matrizes ;
var
a,b,c:array [1..5,1..3] of integer;
i,j:integer;
Begin
writeln(' Digite os valores da matriz A 5x3');
for i:=1 to 5 do
begin
writeln(' Digite a linha ', i ,' da matriz A');
for j:=1 to 3 do
readln(a[i,j]);
end;
writeln(' Digite os valores da matriz B 5x3');
for i:=1 to 5 do
begin
writeln(' Digite a linha ', i ,' da matriz B');
for j:=1 to 3 do
readln(b[i,j]);
end;
for i:=1 to 5 do
begin
for j:=1 to 3 do
begin
c[i,j]:=a[i,j]+b[i,j];
writeln(' Matriz C linha ', i, ' coluna ', j ,' é igual a: ', c[i,j]);
end;
end;
write:
writeln(' Pressione Enter para terminar o programa');
End.

Questão letra (b)

=================
=================
Program ler10 ;
{ Ler Dez elementos de uma matriz tipo vetor  }
var
a:array [1..10] of integer;
i:integer;
Begin
writeln(' Digite dez números! ');
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
writeln(' valor ', i , ' é igual a: ', a[i]);
End.

Questão da letra b

Program Matriz_AporB ;
{  Ler oito elementos de uma matriz A tipo veto, contruir
uma matriz B de mesma dimensão com os seus elementos multiplicados
por 3. Apresentar a matriz b.
}
var
a,b:array [1..8] of integer;
i:integer;
Begin
writeln(' digite 8 números ');
for i:=1 to 8 do
readln(a[i]);
for i:=1 to 8 do
begin
b[i]:=a[i]*3;
writeln(' O valor ', a[i] , ' multiplicado por 3 é igual a: ', b[i]);
end;
End.