Сформировать квадратную матрицу порядка n по данному образцу: 0 0 0 ... 0 0 1 0 0 0 ... 0 2 0 0 0 0 ... 3 0 0 ... 0 (n-1) 0 ... 0 0 0 n 0 0 ... 0 0 0
Сформировать квадратную матрицу порядка n по данному образцу:
0 0 0 ... 0 0 1
0 0 0 ... 0 2 0
0 0 0 ... 3 0 0
...
0 (n-1) 0 ... 0 0 0
n 0 0 ... 0 0 0
Гость
Ответ(ы) на вопрос:
Гостьconst n=5;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do a[i,n-i+1]:=i;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:2);
writeln;
end;
end.
Результат:
0 0 0 0 1
0 0 0 2 0
0 0 3 0 0
0 4 0 0 0
5 0 0 0 0
Не нашли ответ?
Похожие вопросы