Дано масив А[1.. n, 1.. n]. Скласти програму пошуку всіх індексів елементів [i, j] таких, що Aij=Aji.
Дано масив А[1.. n, 1.. n]. Скласти програму пошуку всіх індексів елементів [i, j] таких, що Aij=Aji.
Гость
Ответ(ы) на вопрос:
Гостьprogram matrica;
Var
i,j,n:integer;
a:array[1..50,1..50] of integer;
Begin
Writeln('Введите размерность матрицы:');
Readln(n);
for i:=1 to n do
begin
Writeln('Ввод ',i,' строки');
for j:=1 to n do
begin
Write('A[',i,',',j,']=');
Readln(A[i,j]);
end;
end;
writeln;
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do write(A[i,j],' ');
writeln;
end;
for i:=1 to n do
for j:=i to n do
if a[i,j]=a[j,i] then
Writeln(a[i,j],' i=',i,' j=',j);
End.
Не нашли ответ?
Похожие вопросы