Cформулировать двухмерный массив, состоящий из N x N элементов:заменить нулями все...

Question

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

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 (iend;

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



end.

Comments

const
n=5
m=5; <- тут пишет что неверное выражение !!!

---

ой

---

исправел

---

хм... я ожидал что будет в первом ряду 0 0 0 0 )
примерно ответ получился таков 8 34 37 0 0
49 29 70 2 0
Это и есть замена нулями главной диагонали ?

---

ааа всё вижу)))
прост не до конца раскрыл))