Дан одномерный массив F1 ,… F20 Если модуль суммы положительных элементов больше модуля суммы отрицательных элементов то заменить все положительные элементы на нули — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
DIM f(20)
RANDOMIZE TIMER
FOR i = 1 TO 20
    f(i) = INT(RND * 40) - 15
NEXT
PRINT "massiv"
FOR i = 1 TO 20
    PRINT f(i);
NEXT
PRINT
FOR i = 1 TO 20
    IF f(i) > 0 THEN spol = spol + f(i) ELSE IF f(i) < 0 THEN sotr = sotr + f(i)
NEXT
PRINT "spol="; spol
PRINT "sotr="; sotr
IF spol > ABS(sotr) THEN
    FOR i = 1 TO 20
        IF f(i) > 0 THEN f(i) = 0
    NEXT
END IF
PRINT "novyj massiv"
FOR i = 1 TO 20
    PRINT f(i);
NEXT

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

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

Leave a Comment