Определить, каких чисел в массива больше - 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