Элементы массива, которые больше предыдущего | Язык Паскаль
Pascal. Основы программирования Сложные Средние Простые задачи

Элементы массива, которые больше предыдущего

Вывести элементы числового массива, которые больше, чем элементы, стоящие перед ними.

Например, дан массив [3, 9, 8, 4, 5, 1]. Следует вывести числа 9 и 5, так как перед ними стоят соответственно числа 3 и 4, которые меньше их.

Для решения задачи нужно каждый элемент, начиная со второго, сравнить с предыдущим. Предыдущий элемент имеет индекс на 1 меньше.

const 
    N = 10;

var 
    a: array[1..N] of integer;
    i: byte;

begin
    randomize;
    for i:=1 to N do begin
        a[i] := random(100);
        write(a[i], ' ');
    end;
    writeln;

    writeln('Элементы больше предыдущего: ');
    for i:=2 to N do
        if a[i] > a[i-1] then 
            write(a[i], ' ');
    writeln;
end.

Пример выполнения кода:

30 69 45 22 59 89 71 84 22 19 
Элементы больше предыдущего: 
69 59 89 84 

Пример решения похожей задачи в сообществе VK: Определить количество элементов, значения которых больше первого элемента.