Program qwerty;
var a:integer;
begin
read (a);
if a>0 then a:=a+20
else a:=a-5;
write (a);
end.
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>