Множество

[Archangelos]

Дан одномерный целочисленный массив А, состоящий из N элементов, N - аданное натуральное число. Определите есть ли в массиве три равных элемента стоящих подряд.


Очень прошу помогите! напишите програму полностью.

[Stilet]

Так сойдет?

const n=100000;
var a:array[1..n] of integer;
i:integer;
begin
 for i:=1 to n do begin
  a[i]:=random(10);
 end;
 for i:=1 to n-3 do begin
  if (a[i]=a[i+1])and(a[i]=a[i+2]) then begin
   write('Есть'); exit;
  end;
 end;
 write('нет');
end.

Р.S. Это где ж такой лени учат...

[Archangelos]

а почему n-3 ?

[Monte-Kristo]

по идее n-2 должно быть...

[Archangelos]

но почему? МНЕ ОБЪЯСНЕНИЕ НУЖНО -(

[Monte-Kristo]

Потому что у тебя идет сравнение предпредпослеледнего элемента с предпослденим и последним (к примеру будет так: 1 4 8 2 0 9 7 7 7)
первая семерка в массиве с индексом i будет сравниваться с семеркой с индексом на единицу больше относительно семерки с индексом i, то есть будет i+1, и соответственно с последней семеркой с индексом i+2.

Так вот когда цикл сравнения дошел до элемента с индексом n-2, впереди осталось еще два элемента, с которыми и будет идти сравнение в данный момент. И брать дальше для сравнения элементы с индексами n-1 и n уже нет смысла, т.к. впереди них уже нет двух элементов, с которыми можно было бы сравнивать.