Дан массив, содержащий 2015 положительных целых чисел. Напишите на одном из языков программирования программу, которая находит в этом массиве количество локальных минимумов, значение которых кратно 3. Локальным минимумом называется элемент массива, который меньше всех своих соседей. Например, в массиве из 6 элементов, содержащем числа 4, 6,12, 7, 3, 8, есть два локальных минимума: это элементы, равные 4 и 3. Программа должна вывести общее количество подходящих элементов, значения элементов выводить не нужно.

program zz1;

const n = 2015; / / задаем количество чисел в массиве

var i, s, k:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

m[i]:=random (51);

for i:=2 to n - 1 do / / организуем цикл, в котором переберем все числа массива

begin

if (m[i] < m[i + 1]) and (m[i] < m[i - 1]) then

if m[i] mod 3 = 0 then s:=s + 1; / / проверяем, если очередной элемент массива является локальным минимумом, то проверяем его на кратность трем, если кратно, то считаем

end;

writeln (' количество локальных минимумов кратных трем = ', s); / / выводим ответ

end.