Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Если рядом равные элементы, то вставить между ними ноль


Если рядом равные элементы, то вставить между ними ноль
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 [...]


В избранное