Определить, сколько чисел больше своих «соседей» - Turbo Pascal

Формулировка задачи:

Дано 30 вещественных чисел. Определить, сколько из них больше своих «соседей», т. е. предыдущего и последующего чисел.

Решение задачи: «Определить, сколько чисел больше своих «соседей»»

Листинг программы

Const n=10;
Var A:array[1..n] of integer;
    i,k:byte;
Begin
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
    End;
    For i:=2 to n-1 do
     if (A[i]>A[i-1])and(A[i]>A[i+1]) then inc(k);
    writeln(k);
End.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он предназначен для определения количества чисел, которые больше своих соседей. Константа n определяет количество чисел в массиве A. Переменная A представляет собой массив из n целых чисел. Переменные i и k являются байтами (byte), они используются для чтения и записи значений в массив A. Внутри первого цикла переменной i от 1 до n происходит чтение значений из массива A. Во втором цикле переменной i от 2 до n-1 происходит проверка условия: если значение A[i] больше значения A[i-1] и A[i+1], то переменная k увеличивается на 1. В конце программы выводится значение переменной k, которое показывает количество чисел, которые больше своих соседей.