ПАСКАЛЬ.Ввести одномерный массив A, вывести его. Переставить в обратном порядке все...

Question

ПАСКАЛЬ.Ввести одномерный массив A, вывести его. Переставить в обратном
порядке все элементы между максимальным и предпоследним
отрицательным элементом.
Помогите, не могу найти предпоследний элемент в массиве

Answer 1

Предпоследний отрицательный....
....
ppp:=0; r:=0
for i:=n downto 1 do
begin
if (a[i]<0) and (ppp=0)  and (r=0) then  ppp:=1;<br>if (a[i]<0) and (ppp=1)and (r=0) then begin ppp:=0; r:=1; nom_pp:=i end;<br>end;
....
(тут : ррр=1 -датчик, что после него есть отр. число
к=1-датчик, что мы уже взяли предпоследний и его номер(индекс) сохранили в переменной nom_pp)

Comments

все хорошо, вот только он не находит предпоследний