Работа с массивами. Pascal.

[shatoo]

дан массив {Х} размерностью n. Нужно: заменить знаки всех элементов массива на противоположные, если нет ни одной пары одинаковых элементов. При невыполнении заданного условия выдать сообщение "Решения не существуют". Ограничение : создание вспомогательного массива не позволяется.

[ОДИНОЧЕСТВО В СЕТИ]

если я все правильно поняла!

var x:array[1..100] of integer;
    i,j,n:integer;
   flag:boolean;
begin
readln(n);
for i:=1 to n do
readln(x[i]);
flag:=true;
for i:= 1 to n-1 do
for j:=i+1 to n do
if x[i]=x[j] then flag:=false;
if  flag then 
for i:=1 to n do
 x[i]:=0-x[i]
else writeln('no reshenii');
readln;
end.

[shatoo]

ОДИНОЧЕСТВО В СЕТИ
Большое спасибо. Вот только я не поняла должно ли что-нибудь высвечиваться, после того как набираешь этот код и когда нажимаешь RUN. У меня, кроме версии ничего не написано.

[netrino]

Дело в том, что он ждёт ввода размерности массива) чтобы было видно, можете добавить перед первым readln(n);

 write('Vvedite razmernost massiva: ');

Потом программа будет ожидать ввода элементов массива, их тоже надо будет ввести