Напечатать все числа из очереди, квадрат которых превышает 7, но меньше 50. — QBasic(Бейсик)

Имеется массив А из N произвольных чисел А(N), среди которых есть положительные, отрицательные и равные нулю. Составить программу, выполняющую задачу в соответствии с вариантом.

Например, если А={2,4,–3,3,5,–2,8}, результат: числа 4, –3, 3, 5
INPUT "vvedite kolichestvo chisel ", n
DIM a(n)
RANDOMIZE TIMER
FOR i = 1 TO n
    a(i) = INT(RND * 20) - 10
NEXT
PRINT " massiv"
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
PRINT "resultat"
FOR i = 1 TO n
    IF a(i) ^ 2 > 7 AND a(i) ^ 2 < 50 THEN PRINT a(i);
NEXT

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

Leave a Comment