В таблице произведены запросы количество страниц, которые нашел поисковый сервер по этим запросам в нектором сегменте Интернета Мороз/Солнце 7000 Мороз 4800 Солнце - 4500
Сколько страниц будет найдено по запросу Мороз&Солнце?
DATA 101,98,100,108,97,106,99,100,112,96,107,98 DIM a(1 TO 12) AS INTEGER DIM b(1 TO 12) AS INTEGER, c(1 TO 12) AS INTEGER DIM i AS INTEGER, ib AS INTEGER, ic AS INTEGER CLS ib = 0: ic = 0 FOR i = 1 TO 12 READ a(i) SELECT CASE a(i) CASE 100 ib = ib + 1 b(ib) = i CASE IS > 100 ic = ic + 1 c(ic) = i END SELECT NEXT i
PRINT "План (100%) в месяцах: "; FOR i = 1 TO ib PRINT b(i); NEXT i PRINT PRINT "перевыполнение плана в месяцах "; FOR i = 1 TO ic PRINT c(i); NEXT i END
Результат выполнения программы: План (100%) в месяцах: 3 8 перевыполнение плана в месяцах 1 4 6 9 11
