Дан массив, состоящий из целых чисел. напишите программу, которая подсчитает количество элементов массива, больших предыдущего (элемента с предыдущим номером). входные данные сначала задано число n — количество элементов в массиве (1n10000). далее через пробел записаны n чисел — элементы массива. массив состоит из целых чисел. выходные данные необходимо вывести единственное число - количество элементов массива, больших предыдущего.
begin
var a := ReadArrInteger(ReadInteger());
Println(a);
var k := 0;
for var i := Low(a) + 1 to High(a) do
if a[i - 1] < a[i] then k += 1;
writeln(k);
end.