Определить, каких чисел в массива больше - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
