Определить, в каком из одномерных массивов А, В и С одинаковой размерности n наибольшее количество положительных элементов - VB
Формулировка задачи:
Определить, в каком из одномерных массивов А, В и С одинаковой
размерности n наибольшее количество положительных элементов.
Для отладки программы значения n, А, В и С выбрать самостояте¬льно
Помогите написать кооод программы((
Решение задачи: «Определить, в каком из одномерных массивов А, В и С одинаковой размерности n наибольшее количество положительных элементов»
textual
Листинг программы
Option Explicit Dim A() As Integer, B() As Integer, C() As Integer Dim polA As Integer, polB As Integer, polC As Integer Dim i As Integer, n As Integer Private Sub Command1_Click() Randomize 'Иницилизация генератора случайных чисел Cls 'Очищаем форму n = 15 'InputBox("Введите размер массивов", , 10) ReDim A(n), B(n), C(n) ' Размеры массивoв n-строк polA = 0: polB = 0: polC = 0 For i = 1 To n A(i) = Int(Rnd * 101 - 50) 'Заполняем массивы случайными числами B(i) = Int(Rnd * 101 - 50) 'Заполняем массивы случайными числами C(i) = Int(Rnd * 101 - 50) 'Заполняем массивы случайными числами If A(i) > 0 Then polA = polA + 1 If B(i) > 0 Then polB = polB + 1 If C(i) > 0 Then polC = polC + 1 Next i 'Процедура вывода на печать Print "Массив A"; Print: Print "Число положительных элементов массива A ="; polA For i = 1 To n Print A(i); vbTab; Next i Print: Print "Массив B"; Print: Print "Число положительных элементов массива B ="; polB For i = 1 To n Print B(i); vbTab; Next i Print: Print "Массив C"; Print: Print "Число положительных элементов массива C ="; polC For i = 1 To n Print C(i); vbTab; Next i Print If polA > polB And polA > polC Then Print "Больше всего положительных элементов в массиве A": Exit Sub If polB > polC And polB > polA Then Print "Больше всего положительных элементов в массиве B": Exit Sub If polC > polA And polC > polB Then Print "Больше всего положительных элементов в массиве C": Exit Sub If polA = polB And polA = polC Then Print "Число положительных элементов во всех массивах равно": Exit Sub If polA = polB Then Print "Число положительных элементов в массивах A и B максимально и равно" If polB = polC Then Print "Число положительных элементов в массивах B и C максимально и равно" If polA = polC Then Print "Число положительных элементов в массивах A и C максимально и равно" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д