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

const m=5;var a:array[1..m,1..m] of integer;i,j:integer;beginRandomize;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