Найти количество элементов массива, которые являются простыми числами - QBasic

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

Здраствуйте!!!Решите пожалуйста задачки!Заранее благодарен!!! Задачка №1 Сформировать массив из 10 натуральных случайных чисел в диапазоне от 2 до 50. Найти количество элементов массива, которые являются простыми числами. Задачка №2 Массив, состоящий из 8 сток и 8 столбцов, заполнить случайными числами от 0 до 100. Упорядочить все строки массива по возрастанию. ))))

Решение задачи: «Найти количество элементов массива, которые являются простыми числами»

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

RANDOMIZE TIMER
n = 8
DIM a(n, n)
FOR i = 1 TO n
    FOR j = 1 TO n
        a(i, j) = INT(RND * 101)
    NEXT
NEXT
FOR y = 1 TO n
    FOR i = 1 TO n
        x = a(y, i)
        j = i - 1
        WHILE j > 0 AND a(y, j) > x
            a(y, j + 1) = a(y, j)
            j = j - 1
        WEND
        a(y, j + 1) = x
    NEXT
NEXT
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT a(i, j);
    NEXT
    PRINT
NEXT

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

Задается случайное начальное значение для массива a(i, j).
В цикле происходит перебор всех элементов массива a(i, j).
Для каждого элемента массива проверяется его простота.
Если элемент является простым числом, он сохраняется в массиве a(y, j + 1).
После проверки всех элементов массива выводится на экран.