Заполнить произвольный массив размером N x N (N <10) по следующему правилу:

10000

02000

00300

00020

00001

Question

Информатика

Ромаша

26 июня, 18:04

Заполнить произвольный массив размером N x N (N <10) по следующему правилу:

10000

02000

00300

00020

00001

+3

Ответы (1)

Знаете ответ на вопрос?

Акилина · Answer 1

Var

a: array[1 ... 10, 1 ... 10] of integer;

i, j, n: integer;

begin

write ('Enter n: ') ; readln (n) ;

for i : = 1 to n do

begin

for j : = 1 to n do

begin

if i j then

a[i, j] : = 0

else if i < = N div 2 then

a[i, j] : = i

else

a[i, j] : = n - i + 1;

write (a[i, j], ' ') ;

end;

writeln () ;

end;

end.

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

Заполнить произвольный массив размером N x N (N <10) по следующему правилу:

10000

02000

00300

00020

00001