Дана квадратная матрица 9-ого порядка. Получить квадратную матрицу того же порядка, в которой элемент равен единице, если соответствующий ему элемент исходной матрицы меньше элемента, расположенного в его строке на главной диагонали, и равен нулю в противном случае.

Const

n = 9;

var

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

i, j, aii: integer;

begin

Randomize;

Writeln ('Исходный массив') ;

for i : = 1 to n do

begin

for j : = 1 to n do

begin

a[i, j] : = Random (101) - 50;

Write (a[i, j]:4)

end;

Writeln

end;

Writeln ('Результирующий массив') ;

for i : = 1 to n do

begin

aii:=a[i, i];

for j:=1 to n do

begin

if a[i, j]
Write (a[i, j]:4)

end;

Writeln

end

end.

Тестовое решение:

Исходный массив

-11 19 48 32 - 6 - 39 - 45 - 13 - 27

44 20 - 44 27 - 50 14 - 19 - 12 32

2 48 - 16 40 - 8 - 38 35 - 15 41

-1 - 24 - 18 35 - 49 - 11 22 - 4 - 1

36 - 26 - 8 - 2 - 9 - 17 41 44 - 13

0 - 25 - 6 - 35 - 18 - 6 - 28 46 44

5 - 1 - 23 36 47 - 41 - 30 7 - 39

41 - 41 19 17 - 45 5 - 35 - 4 - 36

-11 - 46 6 - 50 49 - 2 26 - 15 - 40

Результирующий массив

0 0 0 0 0 1 1 1 1

0 0 1 0 1 1 1 1 0

0 0 0 0 0 1 0 0 0

1 1 1 0 1 1 1 1 1

0 1 0 0 0 1 0 0 1

0 1 0 1 1 0 1 0 0

0 0 0 0 0 1 0 0 1

0 1 0 0 1 0 1 0 1

0 1 0 1 0 0 0 0 0