Cформулировать двухмерный массив, состоящий из N x N элементов: заменить нулями все элементы что расположены на главной диагонали и выше неё

Question

Информатика

Борис

25 марта, 23:22

Cформулировать двухмерный массив, состоящий из N x N элементов: заменить нулями все элементы что расположены на главной диагонали и выше неё

+4

Ответы (1)

Знаете ответ на вопрос?

Оня · Answer 1

Easy, 5 минут

const

n=5;

m=5;

var

i, j:integer;

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

begin

randomize;

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i, j]:=random (99) + 1;

end;

writeln;

end;

for i:=1 to n do

for j:=1 to n do

begin

if (i=j) or (i
end;

for i:=1 to n do

begin

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

writeln;

end;

end.