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

Question

Савва Дмитриев

Информатика

1 сентября, 10:50

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

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Варвара Никитина · Answer 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] > a[i-1] then col : = col + 1;

writeln ('Количество элементов, больших предыдущего', col);

end.