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

171

173

Посмотреть ответы 2

Ответы на вопрос:

Masha04131

Информатика

4,5(27 оценок)

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.