Снова массивы. Поиск.
Добавлено: 04 мар 2009, 22:26
Задан целочисленный массив A(n). Выяснить, какое число встречается в массиве раньше: положительное или отрицательное. Если все элементы массива равняются нулю, то сообщить об этом.
Код: Выделить всё
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('Отрицательное раньше');