1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | CLS INPUT "vvedite m"; m DIM a(m), b(m) FOR i = 1 TO m INPUT "vvedite element"; a(i) NEXT FOR i = 1 TO m IF a(i) MOD 3 = 0 THEN k = k + 1 : b(k) = a(i): sr = sr + a(i) NEXT sr = sr / k PRINT "massiv" FOR i = 1 TO m PRINT a(i); NEXT PRINT PRINT "new massiv" FOR i = 1 TO k PRINT b(i); NEXT PRINT PRINT "sr ="; sr |
Тестирование выполнено в программе QB64 ( Скачать )