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

Задача

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

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

Решение

Для решения задачи нужно каждый элемент сравнить с последующим или предыдущим. Если перебор идет с первого элемента, то должен продолжаться до предпоследнего. В таком случае выводятся элементы с индексом i+1 (что реализовано в коде ниже) в случае совпадения условия. Если перебор идет со второго элемента до последнего, то выводится элемент под индексом i.

const 
    N = 20;
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]:4);
    end;
    writeln;
    writeln('Элементы больше предыдущего: ');
    for i:=1 to N-1 do
        if a[i] < a[i+1] then 
            write(a[i+1]:4);
    writeln;
end.

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

  12  86  45  28  91  64  80  73  53  67  13  67  75  54  86  49  83  38   5  91
Элементы больше предыдущего: 
  86  91  80  67  67  75  86  83  91

Тема

Одномерные массивы

Уровень

Простые задачи

Последняя редакция

Комментарии