Pascal. Задача 4-9

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

Примечание: первый и последний элементы сравниваются только с одним "соседом"

Решение

Const
  N = 10;
var
  i, count : integer;
  A : array[1..N] of integer;
begin
  for i := 1 to N do begin
      write('Введите A[', i, ']: ');
      read(A[i]);
    end;
  count := 0;
  if A[1] > A[2] then Inc(count);
  if A[10] > A[9] then Inc(count);
  for i := 2 to N - 1 do
    if A[i] > A[i - 1] + A[i + 1] then Inc(count);
  writeln('Количество искомых элементов: ', count);
end.

◄▲►