VBasic, проверьте пожалуйста код.

[Caustic Gluk]

Значит дан массив из 10 натуральных чисел, поменять местами соседние элементы данного массива. Вычислить ср арифметическое элементов массива с нечётными номерами значение которых кратно 3.

Sub proga()
Dim x(1 To 10) As Integer
Dim i As Integer
Dim p As Integer
Dim s As Integer
Dim ar As Single
Dim t As Integer
For i = 1 To 10
x(i) = Cells(1, i)
For i = 1 To 10 Step 2
p = x(i)
x(i) = x(i + 1)
x [i+1] = p
Next i
s = 0
t = 0
For i = 1 To 10 Step 2
If x(i) Mod 3 = 0 Then
s = s + x(i)
Else
Next i
End If
If x(i) Mod 3 = 0 Then
t = t + 1
Else
Next i
End If
Next i
ar = s / t
Cells(2, 2) = ar
End Sub

Не компилится, в чём дело????

Конец не дописал, не успел(срочно).
Если кто-нибудь возмётся проверить, буду очень признателен, желательно до завтра(завтра экзамен.....).

И так же возник ступор по такому вот поводу:
Дан массив из 10 вещественных элементов, нужно выделить чётные.
Как???

[Caustic Gluk]

на свой вопрос сам себе уже ответил, пожалуйста помогите вот с этим:

Дан массив из 10 вещественных элементов(к примеру: 2,14), нужно выделить чётные.
Как???


тут может оказаться ещё 2 варианта, либо препод ступил и забыл что mod работает только с integer, либо он ступил и забыл что мы ничего другого не изучали.