Задача №66. Количество элементов, больших предыдущего Числа следует выводить через пробел. Все числа целые, по модулю не больше 231-1. Количество элементов массива не превышает 10000.
Дан массив, состоящий из целых чисел. Напишите программу, которая подсчитает количество элементов массива, больших предыдущего (элемента с предыдущим номером).

Входные данные
Сначала задано число N — количество элементов в массиве (1≤N≤10000). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел.

Выходные данные
Необходимо вывести единственное число - количество элементов массива, больших предыдущего.

Примеры
входные данные
5
1 2 3 4 5

выходные данные
4
НА С++ ПЛЗ

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.

64000*16=1024000 б=128000 б=125 кб

program zadacha2;

  uses crt;

  var i,n,a: integer;

            b,y,c,l: real;

begin

clrscr;

readln(n);

  a: =1;

  b: =2;

  c: =5;

  for i: =1 to n do                                                                                          

                                                                                                  begin  

if a mod 2 = 0 then

l: =a+b/c

else          

l: =a-b/c;

a: =a+1;

b: =b+2;

c: =c+5;

y: =y+l;

                                                                                                    end;

writeln(y: 2: 2);

readkey;

  end.

первую по подробней расспишите