Вопрос № 111866: Здравствуйте!
Определить, является ли заданная целая квадратная матрица 10-го порядка симметричной (относительно главной диагонали)....
Вопрос № 111.866
Здравствуйте!
Определить, является ли заданная целая квадратная матрица 10-го порядка симметричной (относительно главной диагонали).
Отправлен: 01.12.2007, 15:44
Вопрос задал: Ezhik (статус: Практикант)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: lyalya
Здравствуйте, Ezhik!
program matrix;
type
mas=array [1..10,1..10] of integer;
var a:mas; i,j:integer; k:boolean;
begin
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
writeln('a[',i,',',j,']= ');
readln(a[i,j]);
end;
end;
for i:=1 to 10 do
begin
for j:=1 to 10 do
write(a[i,j]:5);
writeln;
end;
k:=true;
for i:=1 to 10 do
begin
for j:=1 to 10 do
if a[i,j] <> a[j,i] then k:=false;
end;
if k=false then writeln('net') else writeln ('da');
readln;
end.
удачи!
Ответ отправила: lyalya (статус: 2-ой класс)
Ответ отправлен: 01.12.2007, 16:04 Оценка за ответ: 5 Комментарий оценки: Спасибо!
