Две задачи по программированию на языке VBA

Question

1) Дан массив из N целых чисел. Найти максимальный элемент этого массива
2) Даны N целых чисел. С помощью оператора Do Loop...While определить, каких среди них больше - четных или нечетных?

Трям, огромное спасибо!!!

Минилбаева · Accepted Answer

Ну норм задачки, спасибо, не знал чем заняться на работе.

Олег Завгороднев · Answer

500 рублей на яндекс. кошелёк.

Юлия Борисова · Answer

'M - массив из N целых чисел

1) Max=M(0)

For i=1 to UBound(M) : If M(i)>Max then Max=M(i) : Next

Msgbox Max

2) Do While i<=Ubound(M) : Ch=Ch+(IIf(M(i) Mod 2 = 0,1,-1):i=i+1:Loop

R="Равно":If Ch>0 then R="Чёт":If Ch<0 then R="Нечёт"

Msgbox R