Вопрос от пользователя: Татуня
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. Недостаточно данных для решения задачи.
