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>
12кб =12 288 байт = 98 304 бит
Такие дела
2. из математики
1) чтобы сложить два числа с разными знаками нужно из большего слагаемого вычесть меньшее, и поставить тот знак который больше
примеры: -2+6=3
2)чтобы вычесть два числа с разными знаками нужно сложить их и поставить знак минус
-6-8=-14
из русского языка
1)<span>Глаголы </span><span>совершенного вида</span><span> указывают на </span><span>завершенность действия</span><span>, его результат, конец действия или его начало. В неопределенной форме они отвечают на вопрос </span><span>что сделать?</span><span>. </span>
<span>Например: </span><span>добежать, купить, зазвенеть, построить, запеть.</span><span> </span>
<span><span> </span><span>В изъявительном наклонении</span><span> глаголы обозначают действия, которые реально происходят, происходили или будут происходить:</span>
<span>пишу, писал, написал, буду писать, напишу.</span></span>