Матрицы Опции

[Евгения]

Готовлюсь к экзамену, и встретилась задачка
В матрице а(6х6) все поддиагональные элементы заменить нулями
Подскажите как делается код замены пожалуйста..

Сообщение отредактировано: Евгения - 13.06.2004 19:48

[Catty]

елементы под главной или побочной диагональю или под обеими или как??
уточни пожалуйста!
а код замены будет

Код

a[i,j]:=0

Сообщение отредактировано: Catty - 13.06.2004 20:30

[Евгения]

Так и написано в задании поддиагональные элементы
Может для главной.. т.к дальше в задаче идет относительно верхней части главной диагонали

Сообщение отредактировано: Евгения - 13.06.2004 20:35

[Catty]

Наверное под обеими!

Код

Uses Crt;
const n=4;
type matrix=array[1..n,1..n] of byte;
var
a:matrix; i,j:byte;
Begin
for i:=1 to n do
begin
for j:=1 to n do
read(a[i,j]);
writeln;
end;
for i:=1 to n do
for j:=1 to i-1 do
begin
a[i,j]:=0;
end;
for i:=1 to n do  begin
for j:=1 to n do
write(a[i,j]:2);
writeln;
end;
end.

вот прога заменяет все елементы под главной диагональю!!
Сделай аналогично что бы заменяла все елементы под обеими диагоналями!

[Евгения]

Большое спасибо