11
Декабрь
2009
Если рядом равные элементы, то вставить между ними ноль
Если рядом равные элементы, то вставить между ними ноль
Public Sub Label1_Click()
Form1.Cls
Dim n As Byte
n = Combo1.Text
ReDim a(1 To n) As Integer
Print "array A(n):"
For i = 1 To n
a(i) = Rnd * 10 - 5
Form1.Print "a("; i; ")="; a(i)
Next i
Dim b() As Integer
s = 0
For i = 1 To n-1
s=s+1
redim preserve b(1 to s)
b(s)=a(i)
If a(i) = a(i + 1) Then
s=s+1
redim preserve b(1 to s)
b(s) =0
End If
Next i
s=s+1
redim preserve b(1 to s)
b(s)=a(n)
Form1.Print ""
For i = 1 To s
Form1.Print "As("; i; ")="; b(i)
Next i
End Sub