Паскаль

[masterlomaster]

Что то не могу сообразить.

Надо сделать проверку множества, одинаковые ли там элементы

for i:=2 to N do
if A[1]=A[i] then

это просто если два элемента равны то выполнить, а как сделать, что бы выполнение шло только после того, когда проверит равны ли там все элементы?


так выводит не вариант

if (A[1]=A[2])=(A[3]=A[4])  и так далее then :)

[Niro]

Надо сделать проверку множества, одинаковые ли там элементы

получается у Вас множество это массив?
И вам надо проверить все ли элементы массива одинаковые? тогда вы уже написали

priznak:=1;
for i:=2 to N do
if A[1]<>A[i] then priznak:=0

[code]if priznak=0 then ... else ...
Так?