Question

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

Answer 1

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;
}

Answer 2

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