Дан массив P (n, n). Элементы выше главной диагонали заменить на ноль, а ниже главной диагонали – округлить.
Помогите найти ошибку! Я написала программу, но он не округляет числа и не все значения округляет до 0.
Program lab5;
Var
P: array [1..10,1..15] of real;
i, j, n, z: integer;
Begin
writeln('Введи n');
read(n);
writeln('Введи массив P');
for i:=1 to n do for j:=1 to n do
read(P[i,j]);
z:=0;
for i:=1 to n do
begin
if i if i>j then P[i,j]:=round(P[i,j]);
end;
for i:=1 to n do for j:=1 to n do
writeln ('P[',i,j,']= ',P[i,j]);
End.