Дан массив, состоящий из целых чисел. напишите программу, которая подсчитает количество элементов массива, больших предыдущего (элемента с предыдущим номером). входные данные сначала задано число n — количество элементов в массиве (1n10000). далее через пробел записаны n чисел — элементы массива. массив состоит из целых чисел. выходные данные необходимо вывести единственное число - количество элементов массива, больших предыдущего.
a: array[1..10000] of integer;
i, k, n: integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
writeln;
k:=0;
for i:=2 to n do
if a[i] > a[i-1] then
inc(k);
writeln(k);
end.