Написать программу для следующей задачи: в матрице А (8,8) все отрицательные элементы, стоящие на главной диагонали и ниже нее, заменить нулями.

Pascal:

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.