Дан массив y1,y2…..,y15. Построить два новых ряда состоящих из четных и нечетных по номерам yi. Определить сумму этих рядов и выбрать наибольшую- 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
DIM a(15), b(8), c(7)
RANDOMIZE TIMER
FOR i = 1 TO 15
    a(i) = INT(RND * 20)
NEXT
PRINT "massiv"
FOR i = 1 TO 15
    PRINT a(i);
NEXT
PRINT
FOR i = 1 TO 15
    IF i MOD 2 <> 0 THEN k = k + 1: b(k) = a(i): s1 = s1 + b(k) ELSE m = m + 1: c(m) = a(i): s2 = s2 + c(m)
NEXT
PRINT "massiv nechetnyh nomerov"
FOR i = 1 TO 8
    PRINT b(i);
NEXT
PRINT
PRINT "summa massiva="; s1
PRINT "massiv chetnyh nomerov"
FOR i = 1 TO 7
    PRINT c(i);
NEXT
PRINT
PRINT "summa massiva="; s2
IF s1 > s2 THEN PRINT "1 summa >" ELSE IF s2 > s1 THEN PRINT "2 summa>" ELSE PRINT "summy odinakovy"

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

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

Leave a Comment