Предмет: Информатика,
автор: Dimon7200
Дан массив, содержащий
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
Приложения:
Интересные вопросы
Предмет: Английский язык,
автор: dsospdppdpqp
Предмет: Русский язык,
автор: Аноним
Предмет: Литература,
автор: lauramarcilonoka
Предмет: География,
автор: алинка123456789010
Предмет: География,
автор: Diablo6