Дан массив, состоящий из целых чисел. Напишите программку, которая подсчитает количество
Дан массив, состоящий из целых чисел. Напишите программу, которая подсчитает количество элементов массива, огромных предшествующего (элемента с предыдущим номером). Входные данные Поначалу задано число N количество частей в массиве (1N10000). Далее через пробел записаны N чисел элементы массива. Массив состоит из целых чисел. Выходные данные Необходимо вывести единственное число - количество частей массива, больших предшествующего.
Задать свой вопрос
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Экономика.
Экономика.
Русский язык.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Химия.
Русский язык.
Геометрия.