(pascal) Заполнить квадратную матрицу А[5,5]1 2 3 4 52 3 4 5 03 4 5 0 04 5 0 0 05 0 0 0 0
(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
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы