Решите задание №3 Посчитать по приведенным ниже формулам значение переменных и заполнить таблицу.

292

473

Посмотреть ответы 1

Ответы на вопрос:

HowleenWolf2006

Информатика

4,5(50 оценок)

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.