Заполнить произвольный массив размером NxN (N меньше 10) по следующему правилу:1000002000003000002000001Буду очень благодарна:)
Заполнить произвольный массив размером NxN (N<10) по следующему правилу:
10000
02000
00300
00020
00001
Буду очень благодарна:)
Гость
Ответ(ы) на вопрос:
Гостьconst n=9;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do for j:=1 to n do a[i,j]:=0;
for i:=1 to n do a[i,i]:=n div 2+n mod 2-abs(n div 2+n mod 2-i);
for i:=1 to n do begin for j:=1 to n do write(a[i,j]); writeln end
end.
Не нашли ответ?
Похожие вопросы