проверить все ли элементы в массиве различны.

[Proskurina]

проверить все ли элементы в массиве различны.

[Stilet]

Не. Не все. Пятый и седьмой равны

[TinMan]

Сообщение от Proskurina

проверить все ли элементы в массиве различны.

Проскурина, могу предложить такой алгоритм:
1. упорядочить массив (по возрастанию или убыванию, не важно) любым известным тебе методом;
2. пройтись по массиву, сравнивая соседние элементы.
Вторую часть в Паскале можно сделать как-то так:

i:= 1;
while (i<n) and (a[i]<>a[i+1]) do inc(i);
if i=n then
  writeln('all elements are different')
else
  writeln('some elements are the same');

[kangreon]

l - Индекс первого значения массива
h - Индекс последнего значения массива

  Exist := False;
  for i := l to h do
  begin
    for k := i + 1 to h do
    begin 
      if nArray[i] = nArray[k] then
      begin
        Exists := True;
        Break;
      end;
    end;
  end;

Если после цикла переменная Exists равна True, значит в массиве есть повторяющиеся значения.

[Poma][a]

kangreon, в Вашем варианте можно убрать 1 BeginEnd.

[Вадим Мошев]

2. пройтись по массиву, сравнивая соседние элементы.

Ну, что ж... после того, как массив уже отсортирован, предлагаю сделать так:

for i:=1 to n-1 do
	 if a[i] = a[i+1]
	 	then
	 	 begin
	 	  WriteLn('В массиве есть одинаковые элементы');
	 	  EXIT;
	 	 end;
WriteLn('В массиве все элементы различны');

[Poma][a]

В какой-то книжке было сказано использование операторов прерывающих структурные блоки, приравнивается к goto что является синонимом ереси. После прочитанных строк я пытался воздержаться от прерывания чего-либо...

[Вадим Мошев]

Exit - Это процедура, которая не просто прерывает структурный блок, она завершает выполнение той программы (подпрограммы). Поэтому если при чтении кода вы наткнулись на на неё, код этой подпрограммы можете дальше не читать.

В какой-то книжке было сказано использование операторов прерывающих структурные блоки, приравнивается к goto что является синонимом ереси.

А вот у меня за спиной лежит книжка, где написано, что использование break/continue является более предпочтительным, нежели goto, то есть, они не отождествляются. Ну, если не нравится тот мой код, используйте флаг.

[Poma][a]

Простите, если чем-то Вас обидел. Спасибо за разъяснения.

используйте флаг

Простите, но что это?

[Serge_Bliznykov]

Простите, но что это?

так принято называть переменную булевского типа (семафор), которая помогает прервать цикл без операции break/exit
например

  fExist := False;
  i := 1;
  while ( i<h ) and Not fExist do
  begin
    k := i+1;
    while ( k<=h ) and Not fExist do 
    begin
      if nArray[i] = nArray[k] then  fExists := True;
      inc(k);
    end;
    inc(i)
  end;
  if fExist 
       then // есть одинаковые элементы
       else // нет одинаковых элементов

но лично я не стал бы городить огород там, где он не нужен.
Оператор Break вполне себе легитимен и весьма удобен!
я лично всегда его использую, если алгоритм (и ЯП) это допускают!