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

main(){int mass[2014]; a = 0;if (mass[0] < mass[1])a++;for (i = 1; i < 2014; i++)  {  if (mass[i] < mass[i-1] && mass[i] < mass[i+1])  {if (mass[i]  % 3 == 0)  a++;}  }if (mass[2014] < mass[2013])a++;cout << a << endl;}

Sub massiv01() Dim M(3000) As Integer S = 0 N=2014 For i = 2 To N - 1 If M(i) < M(i - 1) And M(i) < M(i + 1) And M(i) \ 3 = M(i) / 3 Then S = S + 1 End If Next i If M(1) < M(2) And M(i) \ 3 = M(i) / 3 Then S = S + 1 End If If M(N) < M(N - 1) And M(i) \ 3 = M(i) / 3 Then S = S + 1 End If MsgBox "Min = : " & S End SubВариант VBA ExcelПосмотреть код Alt+F11