вопрос

[Archangelos]

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.




вопрос - почему n-3 ?

[sheka]

зачем писать по 10 раз одно и тоже?!

[Archangelos]

но я вопрос задал -(

[Monte-Kristo]

Я тебе в той теме ответил. Если не понятно, переспроси, объясню еще раз...

[Siluet]

вот смотри в чем фишка.. незнаю смогу ли объяснить..
ну вот значит твои числа
1 2 3 4 5 6 7 8 9 4 6 4 3
вот комп доходит до предпоследнего числа (число 4) и начинает проверят равно ли это предпоследнее число двум последующим..
(a[i]=a[i+1]) проверил число с последним числом,
(a[i]=a[i+2]) а эту команду он не может выполнить т.к. у тебя числа закончились..