Pascal

Дана квадратная матрица порядка М. Обнулите элементы матрицы, лежащие ниже главной диагонали. Условный оператор не использовать.

Const m=5;

var

a:array[1 ... m, 1 ... m] of integer;

i, j:integer;

begin

Randomize;

writeln ('Исходный массив:') ;

for i:=1 to m do

begin

for j:=1 to m do

begin

a[i, j]:=random (100) ;

write (a[i, j]:4) ;

end;

writeln;

end;

for i:=2 to m do

for j:=1 to i-1 do

a[i, j]:=0;

writeln ('Полученный массив:') ;

for i:=1 to m do

begin

for j:=1 to m do write (a[i, j]:4) ;

writeln;

end;

end.

Пример:

Исходный массив:

12 76 20 65 71

27 52 36 45 52

9 69 8 69 46

89 69 52 76 31

71 25 7 62 89

Полученный массив:

12 76 20 65 71

0 52 36 45 52

0 0 8 69 46

0 0 0 76 31

0 0 0 0 89