задача delphi

[Kate23]

в одномерном числовом массиве из N элементов определить индекс третьего отрицательного элемента

[Vanta11a]

И в чем проблема? Код где?

p.s. для тех, кто решит "помочь", написав код: посмотрите историю сообщений ТС и решите, надо ли оно?

[ByAlex]

Ну это же невероятно простая программа! Почему сами не делаете? Или кидайте наработки, тут исправят, если что!

[Stilet]

в одномерном числовом массиве из N элементов определить индекс третьего отрицательного элемента

Подсказка:

k:=1;
x=0;
for i:=1 to n do begin
 if a[i]<0 then begin inc(k);x:=i;end;
 if k=3 then break;
end;
write(x);