1 2 3 4 5 6 7 8 9 10 11 12 13 14 | DIM a(1 TO 12) AS SINGLEDIM S AS SINGLE, f AS INTEGER CLS ' Заполнение массива FOR i = 1 TO 12 PRINT "Vvedite "; i; ":"; : INPUT "", a(i) NEXT i 'Подсчет суммы FOR i = 1 TO 12 IF a(i) > 51 THEN f = 1 IF f = 1 THEN S = S + a(i) NEXT i ' Вывод результатаPRINT "Summa : "; S |
Тестирование выполнено в программе QB64 ( Скачать )