Снова массивы. Поиск.

[Фредди Крюгер]

Задан целочисленный массив A(n). Выяснить, какое число встречается в массиве раньше: положительное или отрицательное. Если все элементы массива равняются нулю, то сообщить об этом.

[Naeel Maqsudov]

Фредди Крюгер, не дублируйте сообщения.
Лучше уточните на каком языке нужно решение.
А то вы Ваш вопрос добавили в 2 темы, одна по Паскалю, а другая по Бейсику.

[Naeel Maqsudov]

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

i:=1;
while (A[i]=0) and (i<=n) do inc(i);
if i>n then writeln('Все нули') else if A[i]>0 writeln('Положительное раньше') else writeln('Отрицательное раньше');

Т.е. всего 3 оператора.