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

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

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment