ЛЗ
Леонид Зенченко
Как найти все элементы матрицы равные a [i, j] = a [j, i] на паскале?
Найти все элементы матрицы равные a [i, j] = a [j, i] на паскале, если a [i, j] = a [j, i] то вивести а [i,j]
Найти все элементы матрицы равные a [i, j] = a [j, i] на паскале, если a [i, j] = a [j, i] то вивести а [i,j]
for i := 1 to n do
for j := 1 to n do
if a[i, j] = a[j, i] then
writeln('a[', i, ', ', j, '] = ', a[i, j]);