Дан массив, состоящий из целых чисел. Напишите программу, которая подсчитает количество элементов массива, больших предыдущего
(элемента с предыдущим номером). Входные данные Сначала задано число 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] > a[i-1] then col := col + 1;
writeln('Количество элементов, больших предыдущего', col);
end.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
