(pascal) Заполнить квадратную матрицу А[5,5]1 2 3 4 52 3 4 5 03 4 5 0 04 5 0 0 05 0 0 0 0

Question

(pascal) Заполнить квадратную матрицу А[5,5]
1 2 3 4 5
2 3 4 5 0
3 4 5 0 0
4 5 0 0 0
5 0 0 0 0

Answer 1

Var
i,j:Integer;
A:Array[1..5,1..5] of Integer;
Begin
 for i:=1 to 5 do
  for j:=1 to 5 do
   Read(A[i,j]);
 Writeln('Массив 5х5 успешно заполнен');
end.