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