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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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