Дан одномерный массив 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
25
26
27
28
29
CLS
N = 20
S1 = 0
S2 = 0
DIM F(N)
PRINT "VVEDITE ZNACHENIYA ELEMENTOV MASSIVA: "
FOR I = 1 TO N
    PRINT "A("; I; ") = ";
    INPUT "", A(I)
NEXT I
CLS
 
PRINT "ISHODN. MASSIV: "
FOR I = 1 TO N
    PRINT A(I);
NEXT I
PRINT
 
FOR I = 1 TO N
    IF A(I) >= 0 THEN S1 = S1 + A(I) ELSE S2 = S2 + A(I)
NEXT I
 
IF S1 > ABS(S2) THEN
    PRINT "RESULTAT: "
    FOR I = 1 TO N
        IF A(I) > 0 THEN A(I) = 0
        PRINT A(I);
    NEXT I
END IF

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

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

Leave a Comment