Все элементы ниже главной диагонали заменить нулем - 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
Похожие ответы