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 ( Скачать )
Похожие записи/страницы:
- Дан массив X из 10 элементов 3,5,-4,-8, 10, 6,-2, 12, 3, 5. Найти сумму и количество элементов больших 5…
- Дан массив X из 15 чисел 7, 8, -4, 3, 5, -1, -2, 3, -4, 5, 4, 3, 0, -5, 1. Найти и отпечатать количество и сумму…
- Определить сумму абсолютных значений элементов массива Х(n). Вывести исходный массив и полученную сумму.…
- Дан массив из 15 чисел: 7, 8, -4, 3, 5, 1, -2, 3, -4, 5, 4, 3, 0, -1, -5. Отпечатать исходный массив в строку.…
- Вычислить сумму и количество положительных, сумму и количество отрицательных элементов массива А, состоящего из…
- Дан массив 5x5, найти произведение нечетных элементов в главной диагонали - QBasic(Бейсик)