Задан массив целых чисел М * Н. Найти элементы, которые делятся на 7 и образовать из них одномерный массив - VB

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

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

задано массив целых числе М * Н найти элементы, которые делятся на 7 и образовать из них одномерный массив

Решение задачи: «Задан массив целых чисел М * Н. Найти элементы, которые делятся на 7 и образовать из них одномерный массив»

textual
Листинг программы
  1. Private Sub Form_Load()
  2.     Dim M As Long, H As Long, Ar() As Long, Res() As Long, Init As Boolean
  3.     Dim i As Long, j As Long
  4.     Me.AutoRedraw = True
  5.     Randomize
  6.     M = 5: H = 6
  7.     ReDim Ar(M - 1, H - 1)
  8.     ' Заполняем и выводим
  9.    Me.Print "Исходный массив: {"
  10.     For i = 0 To UBound(Ar, 1): For j = 0 To UBound(Ar, 2)
  11.         Ar(i, j) = Int(Rnd * 100)
  12.         Me.Print Ar(i, j);
  13.     Next: Me.Print: Next
  14.     Me.Print "}"
  15.     ' Выделяем кратные числу 7
  16.    For i = 0 To UBound(Ar, 1): For j = 0 To UBound(Ar, 2)
  17.         If Ar(i, j) / 7 = Fix(Ar(i, j) / 7) Then
  18.             If Init Then ReDim Preserve Res(UBound(Res) + 1) Else ReDim Res(0): Init = True
  19.             Res(UBound(Res)) = Ar(i, j)
  20.         End If
  21.     Next: Next
  22.     ' Отображаем результирующий массив
  23.    If Init Then
  24.         Me.Print "Результат :{"
  25.         For i = 0 To UBound(Res)
  26.             Me.Print Res(i);
  27.         Next
  28.         Me.Print "}"
  29.     Else
  30.         Me.Print "Элементы отсутствуют"
  31.     End If
  32. End Sub

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


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

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

10   голосов , оценка 4.2 из 5

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

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

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы