Дан массив, содержащий
2014
положительных целых чисел. Напишите на
одном из языков программирования программу, которая находит в этом
массиве количество локальных минимумов, значение которых кратно
3.
Локальным минимумом называется элемент массива, который меньше всех
своих соседей. Например, в массиве из
6
элементов, содержащем числа 4, 6,
12, 7, 3, 8,
есть два локальных минимума: это элементы, равные
4 и 3.
Программа должна вывести общее количество подходящих элементов,
значения элементов выводить не нужно. Исходные данные объявлены так,
как показано ниже. Запрещается использовать переменные, не описанные
ниже, но разрешается не использовать часть из описанных.
Ответы
Ответ дал:
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;
}
{
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;
}
Ответ дал:
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
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
Приложения:
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад