Question

Написать код программы на языке Pascal.

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

Answer 1

program pr;

const n = 10;

var

A:array[1..n] of integer;

i:integer;

begin

for i:=1 to n do readln(A[i]);

for i:=1 to (n-1) do

begin

if A[i]=A[i+1] then begin

writeln(i,' и ',i+1);

break;

end;

end;

end.