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

disel
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    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

    Похожие записи/страницы:

    Leave a Comment