[Smurf]

Дано натуральное число n и целые числа A1, ..., An. Выяснить, имеются ли в последовательности A1, ..., An положительные и отрицательные числа одновременно. Если все члены последовательности равны нулю, то сообщить об этом. Числа A1, ..., An представлены в виде одномерного массива.

помогите пожалуйста нубу, крайне признателен...

[Bargest]

Код:

var fP,fO:boolean;
...
fp:=false;
fo:=false;
for i:=1 to n do
 if a[i]>0 then
  fp:=true
 else if a[i]<0 then 
  fo:=true;

Дальше смотришь:
fp=true и fo=true - значит есть И отрицательные, И положительные.
fp=false и fo=false - все нули.
в других случаях в задании ничего не сказано.

[Smurf]

Спасибо огромное!!!