1) Значения частей двумерного массива А были одинаковы 0. Потом значения

Отобразим все приобретенные данные:

program Example;
var
i,j,n:integer;
A : array [1..5, 1..5] of integer;
begin
writeln(Исходная матрица:);
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
A[i,j] := 0;
write( A[,i);
write(,,j);
write(]=,A[i,j]);
end;
writeln();
end;

n:=0;
writeln(Модифицированные значения:);
for i:=1 to 5 do
begin
for j:=1 to 6-i do
begin
n := n + 1;
A[i,j] := n;
write( A[,i);
write(,,j);
write(]=,A[i,j]);
end;
writeln();
end;
end.

получим:

Исходная матрица:
A[1,1]=0 A[1,2]=0 A[1,3]=0 A[1,4]=0 A[1,5]=0
A[2,1]=0 A[2,2]=0 A[2,3]=0 A[2,4]=0 A[2,5]=0
A[3,1]=0 A[3,2]=0 A[3,3]=0 A[3,4]=0 A[3,5]=0
A[4,1]=0 A[4,2]=0 A[4,3]=0 A[4,4]=0 A[4,5]=0
A[5,1]=0 A[5,2]=0 A[5,3]=0 A[5,4]=0 A[5,5]=0
Модифицированные значения:
A[1,1]=1 A[1,2]=2 A[1,3]=3 A[1,4]=4 A[1,5]=5
A[2,1]=6 A[2,2]=7 A[2,3]=8 A[2,4]=9
A[3,1]=10 A[3,2]=11 A[3,3]=12
A[4,1]=13 A[4,2]=14
A[5,1]=15

Ответ: 3) A[5,1]