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