Question

Составить программу, которая в массиве Аn, заполненная случайными числами, где есть нулевые, полож., отрицат. элементы массива. Найти кол-во отрицат. элементов массива. QB64

Answer 1

INPUT n
DIM a(n)
RANDOMIZE TIMER
FOR i = 1 TO n
    a(i) = INT(RND * 20) - 10
    IF a(i) < 0 THEN s = s + 1
    PRINT a(i); " ";
NEXT i
PRINT
PRINT s