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

[Poma][a]

Серж, огромное Вам спасибо!
"Дебаты" были для образования, чтобы узнать точку зрения Господина Мошева, а за тем и Вашу (еще раз огромное спасибо), а не для холивара.

[DiemonStar]

приравнивается к goto что является синонимом ереси.

Чтобы избавиться от данного заблуждения, попробуйте программировать на ассемблере) Goto не используют часто из-за того, что в итоге сложнее разбираться в программе, а не потому, что программа будет хуже... А в вышеприведённом примере даже безусловного перехода в машинных кодах можно избежать, если использовать хороший компилятор...

з.ы. прошу прощения за оффтоп.

[Poma][a]

В данный момент разговор идет про Pascal, и использование Goto не является правилом хорошего тона. (мягко сказано)

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

Сообщение от Poma][a

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

Нет, вы меня ничем не обидели.

[Poma][a]

Сообщение от Вадим Мошев

Нет, вы меня ничем не обидели.

Вот и хорошо!

[TinMan]

Сообщение от Poma][a

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

Ну, если быть точным, то там можно убрать 2 набора begin/end, но только это не влияет на производительность, а размер паскалевского кода не должен быть самоцелью.. ) В любом случае, kangreon заслуживает +1, что я и делаю. Мое желание "упростить" путем разбивания на два этапа в данном случае не оправдано, думаю.

Что же касается выхода из цикла по break - согласен, это нехорошо. Да, я бы уподобил это действо применению goto (может, не на 100%). Кивание на ассемблер тут совершенно неуместно - все и без того понимают (ну.. мож, не совсем все..)), что ассемблерный jmp (плюс условный оператор) есть просто ОСНОВА программирования. То есть, без него там просто НИКУДА, он там в высшей степени ПОЛЕЗЕН. Но если костер и полезен в пещере (или походе), разжигать его дома не советую. Дома есть модернизидравнный вариант костра - газовая горелка, ей и пользуйтесь на здоровье. Она использует ТУ ЖЕ РЕАКЦИЮ (горение, не буду вдаваться в химические подробности). Точно так же, конструкции for или while языков высокого уровня ИСПОЛЬЗУЮТ goto. Явное же их использование в программе на ЯВУ обычно приводит к путанице и ошибкам. Это не есть недостаток САМОГО ОПЕРАТОРА goto. Это есть свойство (недостатком не назову все же) ЧЕЛОВЕЧЕСКОГО МЫШЛЕНИЯ.

Но все это - не более, чем общие слова. Когда доходит дело до конкретики, часто оказывается, что обойтись только т.н. "структурными операторами" не всегда даже возможно (я уж не говорю про удобство). И очень хочется послать все (go to ...)) и влепить goto, ну или хотя бы break, и тем самым сломать (break down, простите за каламбур)) всю красоту. Но в этот момент надо вспомнить про такое средство структурного программирования, как подпрограммы..

В соответствии со сказанным я бы переделал код kangreon примерно как-то так..

function AllDiffer(a: array of integer; n: integer): boolean;
var
  i,j: integer;
begin
  AllDiffer:= false;
  for i:=1 to n-1 do
    for j:=succ(i) to n do
      if a[i]=a[j] then exit;
  AllDiffer:= true
end;
...
  // array a definition, and input
  writeln(AllDiffer(a,n));
end.