Задание:
Заполнить произвольный массив размером NxN (N<10) по следующему правилу: 1000002000003000002000001Буду очень благодарна
Решение:
Const n=9; var a: array[1… n,1… n] of integer; i,j: integer; beginfor 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 endend.
Знаете другой ответ?