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

программа на языке pascal, успехов в учебе.

program pr;

var n,m,z,k,i,vm: integer;

begin

readln (n,m,z);

vm: =n*60+m;

i: =1;

while i< =vm do

begin

k: =k+1;

i: =i+z;

end;

writeln (k);

readln;

end.

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.