Question

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

С ОБЪЯСНЕНИЕМ ПОЖАЛУЙСТА!!!

Answer 1

var

 a:array of integer;

 i,count,n:integer;

begin

 write('Введите длину массива: '); readln(n);

 a:=new integer [n];

 count:=0;

 for i:=0 to n-1 do

   begin

     a[i]:=random(21)-10;

     write(a[i],' ');

   end;

 writeln;

 write('№ эл, бльших левого соседа: ');

 for i:=n-1 downto 1 do

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

     begin

       inc(count);

       write(i+1,' ');

     end;

 writeln;

 write('Кол-во таких эл: ',count);

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!