Программа для visual basic - VB
Формулировка задачи:
Даны натуральные числа n, a1…..an. Найти:
a. Наименьшее из чётных чисел, входящих в последовательность a1…..an.
b. Наибольшее из нечётных и количество чётных чисел, входящих в последовательность a1…..an.
помогите пожалуйста программу составить в Visual Basic!!!
Решение задачи: «Программа для visual basic»
textual
Листинг программы
- evcount=0
- max = a(1)
- for i = 2 to n
- if a(i) mod 2 = 1 and max < a(i) then max = a(i)
- if a(i) mod 2 = 0 then evcount=evcount+1
- next i
- msgbox max
- msgbox evcount
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
