Дан массив размера N. Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов. Найденные номера выводить в порядке их возрастания.

uses crt;

var i, n, count:integer;

a:array[1 ... 100] of integer;

begin

read (n) ;

for i:=1 to n do

read (a[i]) ;

writeln ('Номера элементов:') ;

for i:=1 to n-1 do

if a[i]>a[i+1] then

begin

write (i,' ') ;

count:=count+1;

end;

writeln (#13#10,'Всего элементов:',#13#10, count) ;

end.