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>
program - имя программы
var ввод переменных
integer целочисленный тип данных
real тип данных с плавающей точкой
begin начало программы
read прочтение переменных
write ввод текста в программе
end конец программы
(5,5), (8,8), (9,8), (11,6), (12,7), (12,7), (11,7),
(11,2), (9,2), (9,3), (10,3), (10,4), (7,4), (7,2),
(5,2), (5,3), (6,3), (6,9), (7,9), (7,8), (2,8),
(2,9), (3,9), (3,6), (4,5)
Использовать Чертежник
алг Звезды
нач
нц 2 раз
поднять перо
сместиться на вектор (8,0)
опустить перо
сместиться на вектор (3,6)
сместиться на вектор (3,-6)
сместиться на вектор (-6,4)
сместиться на вектор (6,0)
сместиться на вектор (-6,-4)
поднять перо
<span>кц</span>
Второй вариант. Внизу картинка, которая всё подтверждает :)