Question

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

Answer 1

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.