Определить, каких чисел в массива больше - VB

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

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

Определите, каких чисел в массива больше: которые делятся на первый элемент массива или которые делятся на последний элемент массива.

Решение задачи: «Определить, каких чисел в массива больше»

textual
Листинг программы
For i = 1 To n
   If A(i) Mod A(1) = 0 Then k1 = k1 + 1
   If A(i) Mod A(n) = 0 Then k2 = k2 + 1
Next 
 
If k1 > k2 Then
   Print "больше чисел, которые делятся на первый элемент"
ElseIf k1 < k2 Then
   Print "больше чисел, которые делятся на последний элемент"
Else
   Print "Одинаково"
End If

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


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

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

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