Дан массив X из 10 чисел 3, 5, 1, -2, 3, -4, 5, 8, 4, -1. Найти сумму и количество нечетных элементов массива и распечатать значения суммы и количества отпечатать исходный массив 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) = 1: A(4) = -2: A(5) = 3
A(6) = -4: A(7) = 5: A(8) = 8: A(9) = 4: A(10) = -1
PRINT "MASSIV: "
FOR I = 1 TO 10
    PRINT A(I);
    IF A(I) MOD 2 <> 0 THEN SUM = SUM + A(I): K = K + 1
NEXT I
PRINT
PRINT "SUMMA NECHETNIH ELEMENTOV = "; SUM
PRINT "IH KOL-VO = "; K

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

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

Leave a Comment