Написать программу для решения следующей задачи: дана квадратная матрица порядка N. Заменить единицами все элементы, стоящие на главной диагонали и выше ее.

var i, j, n:integer;

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

begin

read (N);

for i:=1 to n do

for j:=1 to n do a[i, j]:=random (1, n);

for i:=1 to n do

for j:=i to n do

a[i, j]:=0;

for i:=1 to n do

begin

for j:=1 to n do

write (a[i, j]:4);

writeln;

end;

end.