Массив B(20) заполнить целыми случайными числами в диапазоне (-100 — 100). Найти максимальный элемент среди отрицательных значений B, а также его индекс М, определить количество отрицательных значений N в массиве В. Вывести B, MAX,M,N — Basic(Бейсик)

DIM b(20)
RANDOMIZE TIMER
FOR i=1 TO 20
b(i)=INT(RND*201)-100
NEXT
PRINT"massiv"
FOR i=1 TO 20
PRINT b(i);" ";
NEXT
PRINT
max=-200
FOR i=1 TO 20
IF b(i)<0 THEN n=n+1 :IF b(i)>max THEN max=b(i):m=i
NEXT
PRINT"kol-vo otricatelnyh=";n
PRINT"max iz otricatelnyh=";max
PRINT"ego nomer=";m 

Leave a Comment