Questão 1

Program tres_matrizes ;
{1-	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.}
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;

Questão 2

Program ler10 ;
{2-	Ler dez elementos de uma matriz tipo vetor
Obs: Coloquei bem indentado e espaçado
Para facilitar a compreensão }
var
a: array [1..10] of real;
i:integer;
Begin
writeln(' Digite dez números');
for i:=1 to 10 do
begin
write('  '); // isto gera um espaço antes do número capturado
readln(a[i]); 
end;
for i:=1 to 10 do     // a[i]:5:2  --> formatação da saída
writeln('  O ', i,'o. número que você digitou foi: ', a[i]:5:2);
End.

Questão 3

Program questao3 ;
{3-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}
var
// Declarando as 3 variáveis
a,b: array [1..10] of real;
i:integer;
Begin
// Solicitando os dados de entrada
writeln('  Digite 10 (dez) números');
// armazenando no vetor 'a'
for i:=1 to 10 do
begin
write('  ');
readln(a[i]);
end;
// construindo o vetor b    
for  i:=1 to 10 do
begin
// processando e exibindo o resultado na tela
b[i]:= a[i]*3;
writeln(i,'o. Valor --> ', a[i]:5:2 ,' multiplicado por 3 é igual a: ', b[i]:5:2);
end;
writeln; // linha em branco
writeln( ' Pressione Enter para sair');
End.

Questão 4

Program questao4 ;
{4- 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.}
var  
a,b: array [1..15] of integer;
i,j: integer;
Begin
writeln('  Digite 15 (quinze) números');
for i:=1 to 15 do
readln(a[i]);
for i:=1 to 15 do 
begin 
b[i] := 1;
for j:=1 to a[i] do
b[i] := b[i] * j; 
end; 
for i:=1 to 15 do
writeln('Fatorial de ', i,' = ', b[i]);
End.