Дан массив X из 10 элементов 3,5,-4,-8, 10, 6,-2, 12, 3, 5. Найти сумму и количество элементов больших 5 распечатать сумму и количество отпечатать исходный массив X в строчку — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
CLS
DIM A(10)
A(1) = 3: A(2) = 5: A(3) = -4: A(4) = -8: A(5) = 10
A(6) = 6: A(7) = -2: A(8) = 12: A(9) = 3: A(10) = 5
PRINT "MASSIV: "
FOR I = 1 TO 10
    PRINT A(I);
    IF A(I) > 5 THEN SUM = SUM + A(I): K = K + 1
NEXT I
PRINT
PRINT "SUMMA ELEMENTOV > 5 = "; SUM
PRINT "IH KOL-VO = "; K

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

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

Leave a Comment