Sos!!!

[Oleg_Rus]

// цитата от Somewhere
Да и вообще лишняя операция - можно сделать на месте

вероятно можно, но мне кажется так более понятно...

[Duncon]

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

[somewhere]

а тебе не кажется, что здесь она проверит только два стоящих рядом элемента?
а если будет так 1 3 4 1?

Это код, который вероятно хотел написать ты.
Для справки - нет нужды проверять все и вся на равенство. Элементы по сути образуют логическую цепочку. Каждые два соседних меняют логику общего результата. И если хотя бы одна пара не равна - тогда общий результат - False;

[Хыиуду]

Если N невелико, можно сделать так:

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

var P:set of integer;
begin 
  for i:=1 to n do
  for j:=1 to n do
    if {число A[i,j] находится там где надо:}
       if A[i,j] in P then begin writeln('No'); exit;end
       else include(A[i,j],P)
writeln('Yes');
end.

[Колядин Максим]

// цитата от Somewhere
Да и вообще лишняя операция - можно сделать на месте

вероятно можно, но мне кажется так более понятно...

На будущее - цитаты пишутся так:

Если N невелико, можно сделать так: .... [/quotе]