Question

Составьте программу с описанием действий (алгоритм)
«Дан массив из целых чисел. Задано число N-количество элементов в массиве (1<=N<=10000). Далее через пробел записаны N чисел-элементы из массива. Паскаль! Необходимо вывести единственное число

Answer 1

Объяснение:

Вот вроде как

var

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.