Pascal. Задача 4-5

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

Примечание: Алгоритм сравнения должен быть рациональным, т.е. повторно сравнивать элементы недопустимо.

Решение

Const
  N = 10;
var
  i: integer;
  dif : boolean;
  A : array[1..N] of integer;
begin
  for i := 1 to N do begin
      write('Введите A[', i, ']: ');
      read(A[i]);
    end;
  dif := true;
  for i := 1 to N - 1 do begin
      for var j := i + 1 to N do
        if A[i] = A[j] then begin
          dif := false;
          break;
        end;
      if not dif then break;
    end;
  if dif then writeln('Все элементы различны')
  else writeln('Не все элементы различны');
end.

◄▲►