5. дан массив p (n, n). элементы выше главной диагонали заменить на ноль, а ниже главной диагонали – округлить.

Const n=5;
var
  P:array[1..n,1..n] of real;
  i,j: integer;
begin
  Randomize;
  for i:=1 to n do
    for j:=1 to n do
      P[i,j]:=random(1000);
  for i:=1 to n do
    for j:=1 to n do
      if i<j then P[i,j]:=0
      else if i>j then P[i,j]:=round(P[i,j]);
  // далее с массивом можно работать. Например, вывести.
end.