Все положительные элементы одномерного массива, кратные трем заменить на число 1 - VB

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

Все положительные элементы одномерного массива, кратные трем заменить на число 1. Обнулить все четные отрицательные элементы. Вывести полученный массив на экран. Исходные данные в количества 10 случайных числе вводит сам программист методом прямого присваивания. Оформить проект, используя элементы: флажки, переключатели, полосы прокрутки, меню. Вот условие задачи. я сейчас на экзамене =) кто может, помогите пожалуйста. допустим массив получил:

                    Листинг программы
                
 
                        
                          
                    
Dim am(-10 To 10) As Integer, s As Integer
 
Private Sub Command1_Click()
Randomize
s = 0
For i = 0 To 10
am(i) = Fix(Rnd * (10 - (-10) + 1))
Print am(i);
Next

а дальше я не знаю.. помогите, люди

Решение задачи: «Все положительные элементы одномерного массива, кратные трем заменить на число 1»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Randomize
s = 0
For i = 0 To 10
am(i) = Fix(Rnd * (10 - (-10) + 1))
If (am(i) Mod 3) = 0 Then am(i) = 1
If (am(i) Mod 2) = 0 Then am(i) = 0
Print am(i)
Next

Оцени полезность:

6 голосов , оценка 3.833 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы