Составить программу на языке VISUAL BASIC

[Uvelirnyi]

Дан массив С(20). Подсчитать количество элементов больших 5, найти сумму отрицательных и создать новый массив, в котором элементы больше 10 заменить на 999.

[gaw4]

Private Sub Command1_Click()
n = 20
ReDim c(n), c1(n)
Cls
S = 0
For i = 1 To n
c(i) = Int(Rnd * 41) - 20
If c(i) < 0 Then S = S + c(i)
If c(i) > 10 Then c1(i) = 999 Else c1(i) = c(i)
Print c(i); vbTab; c1(i)
Next
Print: Print "S(c(i)<0)="; S
End Sub