Var s: set of integer;
<span> i,a,k: integer;
</span><span>begin
</span><span> s:=[]; k:=0;
</span><span> write('введите 6 чисел через пробел ');
</span><span> for i:=1 to 6 do
</span><span> begin
</span><span> read(a);
</span><span> if a in s then inc(k);
</span><span> s:=s+[a];
</span><span> end;
</span><span> if k>0 then writeln('есть повторяющиеся')
</span><span> else writeln('нет повторяющихся');
</span><span>end.
</span>введите 6 чисел через пробел 10 12 15 19 17 15
<span>есть повторяющиеся
</span>введите 6 чисел через пробел 17 19 21 13 14 15
<span>нет повторяющихся
</span>
Я считаю, что в начальный момент времени каретка находится под любой ячейкой с меткой. Предлагаю такой алгоритм: представим, что по обе стороны от массива есть по пузырьку, и они начинают двигаться навстречу друг другу. Встретятся они в средней ячейке.
SQR-функция возведения в квадрат
SQR(23+s)