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
<span>End Sub

Вариант VBA Excel
Посмотреть код Alt+F11

</span>

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите срочно,срочно

Vikulya

4. 2)
5. 4)
///////////

0 0

4 года назад

1)Вид памяти, которая может хранить большие объёмы информации. Принцип чтения/записи информации-луч лазера 2)устройство для чтен

greenay

1) Раз речь про лазер, то подразумеваются CD, DVD, Blueray диски. Хотя я бы не назвала их способными хранить реально большие обьемы
2)оптический диск? Cdroom или дисковод
3) Жесткий диск/Винчестер
4) Внешний жесткий диск

0 0

3 года назад

Предложите ряд тем для web-сайтов которые бы с вашей точки зрения могли иметь общественный интерес

Дмитрикова

1. Сайт продажи одежды или обуви
2. Помощь с Домашнем заданием
3. Размещение красивых фотографий
4. Сайт определённого заведение или места
5. Форум

0 0

4 года назад