Автор: Евгения 13.06.2004 23:45
Готовлюсь к экзамену, и встретилась задачка
В матрице а(6х6) все поддиагональные элементы заменить нулями
Подскажите как делается код замены пожалуйста..
Автор: Catty 14.06.2004 0:26
елементы под главной или побочной диагональю или под обеими или как??
уточни пожалуйста!
а код замены будет
Код
a[i,j]:=0
Автор: Евгения 14.06.2004 0:31
Так и написано в задании поддиагональные элементы
Может для главной.. т.к дальше в задаче идет относительно верхней части главной диагонали
Автор: Catty 14.06.2004 0:40
Наверное под обеими!
Код
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.
вот прога заменяет все елементы под главной диагональю!!
Сделай аналогично что бы заменяла все елементы под обеими диагоналями!