программа для visual basic - VB

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

Даны натуральные числа n, a1…..an. Найти: a. Наименьшее из чётных чисел, входящих в последовательность a1…..an. b. Наибольшее из нечётных и количество чётных чисел, входящих в последовательность a1…..an. помогите пожалуйста программу составить в Visual Basic!!!


textual

Код к задаче: «программа для visual basic - VB»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 3.909 из 5

Источник