Создать приложение по поиску в каждой строке массива - VB

Узнай цену своей работы

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

Создать приложение по поиску в каждой строке массива размером 5х10 количества элементов, меньших среднего арифметического всех элементов этой строки. Массив заполняется случайными числами. Результат выводится при нажатии командной кнопки. Предусмотрите возможность корректного завершения приложения.

Решение задачи: «Создать приложение по поиску в каждой строке массива»

textual
Листинг программы
Option Explicit
Private Sub Command1_Click()
Dim A() As Integer, B() As Single, kol() As Integer
Dim i As Integer, j As Integer, m As Integer, n As Integer
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
m = 5: n = 10
ReDim A(1 To m, 1 To n), B(1 To m), kol(1 To m) ' Размеры массива А -  m-строк, n-столбцов
 
For i = 1 To m
     B(i) = 0
     For j = 1 To n
          A(i, j) = Int(Rnd * 101) 'Заполняем массив случайными числами
          Print A(i, j); vbTab;
          B(i) = B(i) + A(i, j)
     Next j
     B(i) = B(i) / n
     Print
     Print "Среднее арифметическое  " & i & "-й  строки равно "; B(i)
     Print
Next i
Print
 
For i = 1 To m
   kol(i) = 0
   Print "Элементы " & i & " строки меньшие  её среднего арифметического"
   For j = 1 To n
       If A(i, j) < B(i) Then
         kol(i) = kol(i) + 1
         Print vbTab; A(i, j);
       End If
   Next j
   Print
   Print "Количество элементов " & i & " строки меньших её среднего арифметического = " & Str(kol(i))
 
   Print
Next i
 
End Sub

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


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

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

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