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

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

Задать свой вопрос
1 ответ

program massiv;

var a: array[1..100] of integer;

i, n, col: integer;

begin

writeln(Введите количество элементов в массиве);

readln(n);

writeln(Заполните массив с клавиатуры);

for i := 1 to n do readln(a[i]);

writeln(Подсчёт частей, великих предыдущего);

for i := 2 to n do if a[i] gt; a[i-1] then col := col + 1;

writeln(Количество частей, великих предшествующего, col);

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт