М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
DikaTheBro
DikaTheBro
10.10.2021 14:34 •  Информатика

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

👇
Ответ:
daniexalmera
daniexalmera
10.10.2021
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.
4,5(67 оценок)
Открыть все ответы
Ответ:
070974zZ
070974zZ
10.10.2021

На панели «Свойства» в Illustrator можно просматривать настройки и элементы управления для текущей задачи или рабочего процесса. Эта панель была реализована с целью повышения удобства работы, чтобы предоставить пользователю доступ к необходимым элементам управления тогда, когда это необходимо.

Панель «Свойства» по умолчанию отображается в рабочей среде «Основные настройки». К ней также можно перейти, выбрав Окно > Свойства.

Часто используемые элементы управления панели «Свойства» отображаются на переднем плане. К остальным элементам управления можно перейти, нажав значок троеточия в правом нижнем углу либо подчеркнутую опцию

Объяснение:

можно лучший ответ

4,7(33 оценок)
Ответ:
ппп278
ппп278
10.10.2021
 const nx = 20;
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer; 
i, j, k,n,r,t: integer; 
begin 
Writeln('Введите размер матрицы n');Read(n); 
 for i := 1 to n do begin   
for j := 1 to n do begin   
Read(k);x[i, j] := k;  end;end;   
Writeln('Исходный массив'); 
for i := 1 to n do begin   
for j := 1 to n do begin     
Write(x[i, j]:4);     
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;    
end;   
Writeln;  end; 
Writeln;Writeln('Одномерный массив'); 
for j := 1 to t do     
Write(z[j]:4); 
 end.
4,7(96 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ