Дано масив А[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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.