Дана квадратная матрица 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]< aii then a[i,j]: =1 else a[i,j]: =0;           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

Рекламодатель, инженер, менеджер, преподаватель, фотограф, архитектор