Question

Заполнить матрицу 10х10 так, чтобы элементы главной диагонали и все, что над ней, были = 1, а остальные - 0. Вывести матрицу на экран. Паскаль

Answer 1

Ответ:

program test;

var i, j: integer;

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

begin

for i:=1 to 10 do

begin

for j:=1 to 10 do

begin

if i<=j then a[i,j]:=1 else a[i,j]:=0;

write (a[i,j]:2)

end;

writeln

end

end.