Вставить число К между всеми соседними элементами, которые имеют разные знаки - VB
Формулировка задачи:
помогите написать код для программ:
1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-95,95]. Удалить из него все отрицательные элементы кратные 5 и принадлежащие промежутку [a,b].
2. Вставить число К между всеми соседними элементами, которые имеют разные знаки.
3. Переставить в обратном порядке часть массива между элементами с номерами К1 и К2, включая их.
Решение задачи: «Вставить число К между всеми соседними элементами, которые имеют разные знаки»
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)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д