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

Question

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

Answer 1

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