Дан массив, состоящий из целых чисел. Напишите программку, которая подсчитает количество

Дан массив, состоящий из целых чисел. Напишите программку, которая подсчитает количество элементов массива, великих предыдущего (элемента с предшествующим номером).

Входные данные
Поначалу задано число N количество элементов в массиве (1N10000). Дальше через пробел записаны N чисел элементы массива. Массив состоит из целых чисел.

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

Задать свой вопрос
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] gt; a[i-1] then
inc(k);
writeln(k);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт