Если рядом равные элементы, то вставить между ними ноль
Если рядом равные элементы, то вставить между ними ноль
2009-12-11 07:00 Александр
Если рядом равные элементы, то вставить между ними ноль
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
[...]