Заполнить произвольный массив размером NxN (N

Question

Заполнить произвольный массив размером NxN (N<10) по следующему правилу: 1000002000003000002000001Буду очень благодарна

Answer 1

64

mabonia

23 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: