Дан массив, содержащий 2015 положительных целых чисел. напишите на одном из языков программирования программу, которая находит в этом массиве количество локальных минимумов, значение которых кратно 3. локальным минимумом называется элемент массива, который меньше всех своих соседей. например, в массиве из 6 элементов, содержащем числа 4, 6,12, 7, 3, 8, есть два локальных минимума: это элементы, равные 4 и 3. программа должна вывести общее количество подходящих элементов, значения элементов выводить не нужно.
for i in 1..2015
a<<Random.rand(200)-100
end
p a
k=0
for i in 0...a.size
if (a[i]%3==0) and ((i==0 and a[0]<a[1]) or (i==a.size-1 and a[i]<a[i-1]) or (a[i]<a[i-1] and a[i]<a[i+1]))
k+=1
end
end
p k
n=2015;
var
a:array[1..n] of integer;
i,k: integer;
begin
Randomize;
for i:=1 to n do a[i]:=Random(300)+1;
if (a[1]<a[2]) and (a[1] mod 3=0) then k:=1 else k:=0;
if (a[n]<a[n-1]) and (a[n] mod 3=0) then Inc(k);
for i:=2 to n-1 do
if (a[i-1]<a[i]) and (a[i]<a[i+1]) and (a[i] mod 3=0) then Inc(k);
Writeln('Чсло локальных минимумов равно ',k);
end.