цикл 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.
он найдет первое и продолжит искать...как остановить поиск после нахождения первого отрицательного ?

[Айра]

что бы найти последнее равное нулю и присвоить ему номер n2 сделаю так

ты здесь тоже можешь while'ом обойтись, только у тебя i будет изначально равно n, а потом будет уменьшаться..

Добавлено через 7 мин.
и еще

i := 1;
while (i <= n) and (a[i] >= 0) do i := i + 1;
n1:=i // так не правильно, потому что если в массиве не будет отрицательных
         // ты все равно присвоишь какой-то номер, тебе нужно еще проверку сделать

Сообщение отредактировано: Айра - 23.05.2008 1:57