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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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