Дан массив размера 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.