Страница 1 из 1

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

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

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

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

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

Добавлено: 05 мар 2009, 20:33
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 оператора.