цикл for i:=1 to n do, интересует следующее Опции

[warning777]

возможно ли этот цикл запустить в обратном порядке,то есть
for i:=n to 1 do ?
интересуюсь,потому что не знаю как найти первый отрицательный элемент в массиве...
если использовать
for i:=1 to n do
begin
if a[i]<0 fhen
n1:=i
end.
он найдет первое и продолжит искать...как остановить поиск после нахождения первого отрицательного ?

[volvo]

Вроде бы она делает то что ты хочеш

Только зачем проходить по всем элементам массива, если можно просто остановиться вовремя?

i := 1;
while (i <= n) and (a[i] >= 0) do i := i + 1;
{ если мы здесь, значит или i > n (если отрицательных нет вообще), или a[i] < 0 }

P.S.

Функция exit оканчивает цикл =)

Паскалевский Exit немедленно оканчивает текущую подпрограмму (если вызван в основной программе - то заканчивает программу) вообще-то... Цикл заканчивает Break...

Сообщение отредактировано: volvo - 23.05.2008 1:42