Заданы одномерные массивы A(N),B(M),C(L). Для каждого из них: 1) Подсчитать количество положительных элементов; 2) Целочисленные элементы в интервале (D,Е) увеличить в 10 раз. Подсчитать количество преобразованных элементов. — QBasic(Бейсик)

INPUT "vvedite N ", n
INPUT "vvedite M ", m
INPUT "vvedite L ", l
INPUT "vvedite D ", d
INPUT "vvedite E ", e
DIM a(n), b(m), c(l)
RANDOMIZE TIMER
PRINT "massiv A"
FOR i = 1 TO n
    a(i) = (INT(RND * 30) - 10) / 2
    IF a(i) > 0 THEN kola = kola + 1
    PRINT a(i);
    IF a(i) > d AND a(i) < e AND INT(a(i)) = a(i) THEN a(i) = 10 * a(i): ka = ka + 1
NEXT
PRINT
PRINT "kol-vo polojitelnyh v massive A="; kola
PRINT "kol-vo preobrazovannyh v massive A="; ka
PRINT "novyj massiv A"
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
PRINT "massiv B"
FOR i = 1 TO m
    b(i) = (INT(RND * 20) - 10) / 2
    IF b(i) > 0 THEN kolb = kolb + 1
    PRINT b(i);
    IF b(i) > d AND b(i) < e AND INT(b(i)) = b(i) THEN b(i) = 10 * b(i): kb = kb + 1
NEXT
PRINT
PRINT "kol-vo polojitelnyh v massive B="; kolb
PRINT "kol-vo preobrazovannyh v massive B="; kb
PRINT "novyj massiv B"
FOR i = 1 TO m
    PRINT b(i);
NEXT
PRINT
PRINT "massiv C"
FOR i = 1 TO l
    c(i) = (INT(RND * 20) - 10) / 2
    IF c(i) > 0 THEN kolc = kolc + 1
    PRINT c(i);
NEXT
PRINT
PRINT "kol-vo polojitelnyh v massive C="; kolc
PRINT "kol-vo preobrazovannyh v massive C="; kc
PRINT "novyj massiv C"
FOR i = 1 TO l
    PRINT c(i);
NEXT
PRINT

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment