Pascal Дана квадратная матрица порядка М. Обнулите элементы матрицы, лежащие ниже главной диагонали. Условный оператор не использовать.
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
Не нашли ответ?
Похожие вопросы