Составить программу, которая в массиве Аn, заполненная случайными числами, где есть нулевые, полож., отрицат. элементы массива. Найти кол-во отрицат. элементов массива. QB64
Answers & Comments
DeSex
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
Answers & Comments
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