5. Дан массив P (n, n). Элементы выше главной диагонали заменить ** ноль, а ниже главной...

Question

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

Answer 1

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      else if i>j then P[i,j]:=round(P[i,j]);
  // далее с массивом можно работать. Например, вывести.
end.