Заменить нулями все элементы матрицы, расположенные на главной диагонали и выше нее

const
  size = 12;
 
var
  x: array [1..size, 1..size] of real;
  i, j: integer;
 
begin
  Randomize;
  WriteLn('Исходная матрица:');
  for i := 1 to size do
  begin
    for j := 1 to size do
    begin
      x[i, j] := Random;
      Write(x[i, j]:7:2);
    end;
    WriteLn
  end;
  WriteLn('Полученная матрица:');
  for i := 1 to size do
  begin
    for j := 1 to size do
    begin
      if i <= j then
        x[i, j] := 0;
      Write(x[i, j]:7:2);
    end;
    WriteLn
  end;
end.

const
  size=12;
var
  x: array [1..size,1..size] of Real;
  i, j: Integer;
begin
  Randomize;
  for i:=1 to size do for j:=1 to size do x[i,j]:=Random;
  WriteLn('Исходная матрица:');
  for i:=1 to size do begin
    for j:=1 to size do Write(x[i,j]:6:2); WriteLn;
  end;
  for i:=1 to size do for j:=i to size do x[i,j]:=0;
  WriteLn('Полученная матрица:');
  for i:=1 to size do begin
    for j:=1 to size do Write(x[i,j]:6:2); WriteLn;
  end;
end.