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

uses crt;var i,n,count:integer;a:array[1..100] of integer;beginread(n);for i:=1 to n doread(a[i]);writeln('Номера элементов:');for i:=1 to n-1 doif a[i]>a[i+1] thenbeginwrite(i,' ');count:=count+1;end;writeln(#13#10,'Всего элементов:',#13#10,count);end.