Дан массив из 25 элементов, найти сумму четырех наибольших и четырех наименьших элементов — QBasic(Бейсик)

disel
1
2
3
результат распечатать в виде:
массив:
сумма наибольших= сумма наименьших =
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
DIM a(25)
RANDOMIZE TIMER
PRINT "massiv"
FOR i = 1 TO 25
    a(i) = INT(RND * 50)
    PRINT a(i);
NEXT
PRINT
FOR i = 1 TO 25
    FOR j = 2 TO 25
        IF a(j) < a(j - 1) THEN SWAP a(j), a(j - 1)
    NEXT
NEXT
FOR i = 1 TO 4
    smen = smen + a(i)
NEXT
FOR i = 22 TO 25
    sbol = sbol + a(i)
NEXT
PRINT
PRINT "summa bolshih="; sbol, "summa menshih="; smen

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

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

Leave a Comment