Написать код программы на языке Pascal.Имеется массив A из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Найти номера первых двух рядом стоящих одинаковых элементов в массиве. Так, если A={2,6,4,4,2,5,5,4}, результат: 3 и 4

Предыдущий
вопрос Следующий
вопрос

program FirstRepeatedElements;
const
n = 8;
var
A: array[1..n] of integer;
i, firstIndex, secondIndex: integer;
found: boolean;
begin
// Ввод элементов массива
writeln('Enter elements of the array:');
for i := 1 to n do
begin
readln(A[i]);
end;
// Поиск первых двух рядом стоящих одинаковых элементов
found := False;
i := 1;
while (i < n) and (not found) do
begin
if A[i] = A[i+1] then
begin
firstIndex := i;
secondIndex := i + 1;
found := True;
end;
Inc(i);
end;
// Вывод результата
if found then
begin
writeln('Indexes of the first two repeated elements: ', firstIndex, ' and ', secondIndex);
end
else
begin
writeln('No repeated elements found');
end;
end.

В данной программе сначала пользователю предлагается ввести элементы массива, затем программа ищет первые два рядом стоящих одинаковых элемента и выводит их номера.