Все элементы ниже главной диагонали заменить нулем - Turbo Pascal

Формулировка задачи:

все элементы ниже главной диагонали заменить нулем.Как это сделать?

Код к задаче: «Все элементы ниже главной диагонали заменить нулем - Turbo Pascal»

textual
Const
  n=5;
Var
  x: Array [1..10,1..10] of Integer;
  i,j: Byte;
BEGIN
Randomize;
Writeln('Исходный массив:');
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    x[i,j]:=Random(9)+1;
    Write(x[i,j]:3);
  end;
  Writeln
end;
Writeln('Полученный массив:');
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    If i>j Then x[i,j]:=0;
    Write(x[i,j]:3);
  end;
  Writeln
end;
Readln
END.

14   голосов, оценка 4.071 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы