Определить, в каком из одномерных массивов А, В и С одинаковой размерности 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

10   голосов , оценка 4.8 из 5
Похожие ответы