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

count:=0;
for i:=1 to n do
begin
if(a [ i ] > a[i+1]) then begin
writeln(i); // Здесь выводим номера таких элементов
count:=count+1;
end;
end;
// Теперь в count количество таких элементов