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