Дан массив, содержащий 2014 положительных целых чисел. Напишите ** одном из языков...

0 голосов
86 просмотров

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


Информатика (12 баллов) | 86 просмотров
Дано ответов: 2
0 голосов

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

(74 баллов)
0 голосов

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


Скачать вложение Excel (XLS)
(18.0k баллов)