Дан массив R(N);N=20,вычислить суммы положительных S1 и отрицательных элементов S2,если |S1|>|S2|,определить максимальное значение элементов массива,в противном случае составить новый массив,элементы которого равны C(i)=R(i)/S1. Результаты распечатать в виде: массив R.- 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
30
CLS
RANDOMIZE TIMER
n = 20
DIM r(n)
FOR i = 1 TO n: r(i) = FIX(RND * 101 - 50): NEXT
FOR i = 1 TO n
    PRINT r(i);
NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO n
    IF r(i) > 0 THEN s1 = s1 + r(i)
    IF r(i) < 0 THEN s2 = s2 + r(i)
NEXT
PRINT "s1="; s1, "s2="; s2
PRINT STRING$(80, 196)
IF ABS(s1) > ABS(s2) THEN
    max = r(1)
    FOR i = 1 TO n
        IF r(i) > max THEN max = r(i)
    NEXT
    PRINT "max ="; max
ELSE
    DIM c(n)
    FOR i = 1 TO n
        c(i) = r(i) / s1
    NEXT
    FOR i = 1 TO n
        PRINT c(i);
    NEXT
END IF

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

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

Leave a Comment