Дано масив А[1.. n, 1.. n]. Скласти програму пошуку всх ндексв

Дано масив А[1.. n, 1.. n]. Скласти програму пошуку всх ндексв елементв [i, j] таких, що Aij=Aji.

Задать свой вопрос
1 ответ
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.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт