Одномерный массив a размерностью n=20 заполнить случайными целыми числами из отрезка [9,16]c помощью функции rnd. Подсчитать сколько попало в массив a чисел 9,10, 11 и т.д. до 16.Результат поместить в массив s размерностью m=8.Распечатать s(m) в виде строки- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
CLS
RANDOMIZE TIMER
n = 20
m = 8
DIM a(n), b(m)
FOR i = 1 TO n
    a(i) = FIX(RND * 8 + 9)
NEXT
FOR i = 1 TO n
    r = m
    FOR j = 1 TO 8
        r = r + 1
        IF a(i) = r THEN b(j) = b(j) + 1
    NEXT
NEXT
PRINT "massiv"
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT "kolichestvo elementov ravnih 9,10,11...16"
FOR i = 1 TO m
    PRINT b(i);
NEXT

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

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

Leave a Comment