Turbo Pascal. Массивы. Повторы.

[dartrod]

Помогите решить задачу

Написать программу которая проверяет есть ли во введеном с клавитуры массиве элементы с одинаковым значением.

Оч нужно

[Naeel Maqsudov]

пусть был введен массив M, размерности N

Код: Выделить всё

found:=false;
if N>1 then begin
  i:=2;
    while (not found) and (i<=N) do begin
    j:=1;
    while (not found) and (j<i) do begin
      found:=M[i]=M[j];
      inc(j);
    end;
    inc(i);
  end;
end;
if found then writeln('Повторения есть') else writeln('Повтороений нет');