1. Напечатайте индексы всех равных элементов произвольного массива A (N; N). 2. В заданном тексте заменить последовательность символов X (I) на A (I), подсчитать количество произведенных замен. эти две задачи необходимо решить в турбо паскале

1.

const nn=50;

var

a:array [1 ... nn, 1 ... nn] of integer;

i, j, k, l, n:integer;

begin

writeln ('N = ') ;

readln (n) ;

for i:=1 to n do

for j: = 1 to n do

readln (a[i, j]) ;

writeln;

writeln ('Сформированный массив:') ;

for i:=1 to n do

begin

for j: = 1 to n do

write (a[i, j],' ') ;

writeln;

end;

writeln;

writeln ('Индексы равных элементов:') ;

for i:=1 to n do

for j: = 1 to n do

for k:=i+1 to n do

for l: = j to n do

if (a[i, j] = a[k, l]) then writeln ('[', i,',', j,'] = [', k,',', l,']') ;

end.

2. Недостаточно данных для решения задачи.