Определить максимальное значение элемента массива в диапазоне 100-250 - QBasic

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

Помогите с заданием Дан массив А(100), заполненный случайными числами в диапазоне 0 - 500. Определить: а) максимальное значение элемента массива в диапазоне 100-250; б) максимальное значение элемента массива в диапазоне от

до

, где

вводятся с экрана; в) сумма всех элементов массива; г) сумма элементов массива, попавших в диапазон 0 - 100; д) сумму элементов массива, попавших в диапазон от

до

, где

вводятся с экрана; е) среднее значение элементов массива , принадлежащих диапазону 25 - 100; ж) среднее значение элементов массива, принадлежащих диапазону от

до

, где

вводятся с экрана.

Решение задачи: «Определить максимальное значение элемента массива в диапазоне 100-250»

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

CLS
RANDOMIZE TIMER
DIM A(1 TO 100) AS INTEGER
 
FOR i = 1 TO 100
   A(i) = 500 * RND
   PRINT A(i);
NEXT i
PRINT : PRINT
 
FOR i = 1 TO 100
   IF 100 <= A(i) AND A(i) <= 250 THEN
      IF max < A(i) THEN max = A(i)
   END IF
NEXT i
 
PRINT "Max ="; max
END

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

CLS - команда очистки экрана.
RANDOMIZE TIMER - команда инициализации генератора случайных чисел.
DIM A(1 TO 100) AS INTEGER - команда создания массива A размером 100 ячеек, которые будут содержать целочисленные значения.
FOR i = 1 TO 100 - цикл, который выполняется 100 раз, начиная с i=1 и заканчивая i=100.
*A(i) = 500 RND** - присваивание каждому элементу массива A случайного значения, которое в диапазоне от 0 до 500.
PRINT A(i); - печать значения каждого элемента массива A в отдельной строке.
NEXT i - переход к следующей итерации цикла.
FOR i = 1 TO 100 - цикл, который выполняется 100 раз, начиная с i=1 и заканчивая i=100.
IF 100 <= A(i) AND A(i) <= 250 THEN - проверка, является ли значение элемента массива A в диапазоне от 100 до 250.
IF max < A(i) THEN max = A(i) - если текущее значение элемента массива A больше значения переменной max, то max присваивается значение текущего элемента массива A.
END IF - завершение условия проверки.
NEXT i - переход к следующей итерации цикла.
PRINT Max =; max - печать значения переменной max.
END - завершение программы.