Вставить число К между всеми соседними элементами, которые имеют разные знаки - VB

Формулировка задачи:

помогите написать код для программ: 1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-95,95]. Удалить из него все отрицательные элементы кратные 5 и принадлежащие промежутку [a,b]. 2. Вставить число К между всеми соседними элементами, которые имеют разные знаки. 3. Переставить в обратном порядке часть массива между элементами с номерами К1 и К2, включая их.

Код к задаче: «Вставить число К между всеми соседними элементами, которые имеют разные знаки - VB»

textual
Dim am(50) As Double
Private Sub Command1_Click()
Picture1.Cls
Picture2.Cls
Picture3.Cls
n = Val(Text1)
Am_Min = Val(Text2)
Am_Max = Val(Text3)
s = 0
For i = 0 To n - 1
am(i) = Am_Min + Int(Rnd * (Am_Max - Am_Min))
Picture1.Print am(i);
if am(i)>0 and am(i) mod 5 then
Picture2.Print am(i)

8   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ