1 2 3 4 5 6 7 8 9 10 11 12 13 14 | ' Initsializatsiya, zapros kol-va elementovCLS: INPUT "Kol-vo elementov:", elDIM m(el) AS INTEGER, chsum' Zapolnim massivRANDOMIZE TIMERFOR i = 1 TO el m(i) = INT(RND * 11): PRINT m(i);NEXT: PRINT' Schitaem summu el-vFOR i = 1 TO el IF (m(i) AND 1) = 0 THEN chsum = chsum + m(i)NEXT' RezultatPRINT "Summa:"; chsum |
Тестирование выполнено в программе QB64 ( Скачать )