Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел - QBasic

Формулировка задачи:

Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел. Получите новый массив, элементы которого равны разности между максимальным и соответствующим элементом исходного массива. В полученном массиве найдите сумму элементов, которые меньше среднего арифметического значения элементов исходного массива. Выведите на экран исходные и полученные результаты.

Решение задачи: «Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел»

Листинг программы

RANDOMIZE TIMER
n = 15
DIM a(n), b(n)
FOR i = 1 TO n
    a(i) = INT(RND * 51)
NEXT
max = a(1)
FOR i = 2 TO n
    IF a(i) > max THEN max = a(i)
NEXT
FOR i = 1 TO n
    b(i) = max - a(i)
NEXT
FOR i = 1 TO n
    s = s + a(i)
NEXT
s = s / n
FOR i = 1 TO n
    IF b(i) < s THEN sum = sum + b(i)
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
PRINT "max ="; max
FOR i = 1 TO n
    PRINT b(i);
NEXT
PRINT
PRINT "sr= ="; s
PRINT "sum ="; sum

Объяснение кода листинга программы

С помощью функции RANDOMIZE TIMER инициализируется генератор случайных чисел.
Задается размер массива a(n) равный 15.
Циклом FOR формируется массив a(n) из 15 случайно сгенерированных чисел в диапазоне от 0 до 50.
Находится максимальное значение в массиве a(n).
Циклом FOR проверяется каждый элемент массива a(n) на предмет превышения максимального значения, и если это так, то значение max обновляется.
Циклом FOR формируется массив b(n) путем вычитания каждого элемента массива a(n) из максимального значения max.
Циклом FOR происходит суммирование всех элементов массива a(n).
Вычисляется среднее значение s путем деления суммы элементов массива a(n) на их количество.
Циклом FOR проверяется каждый элемент массива b(n) на предмет того, является ли он меньше значения s, и если это так, то значение sum обновляется.
Циклом FOR выводятся все элементы массива a(n).
Выводится значение max.
Циклом FOR выводятся все элементы массива b(n).
Выводится значение s.
Выводится значение sum.