Найти сумму четных элементов массива- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
CLS
INPUT "введите размер массива*"; n
DIM A(n)
PRINT "введите массив"
FOR i = 1 TO n
INPUT A(i)
NEXT i
s = 0
FOR i = 1 TO n
IF A(i) MOD 2 = 0 THEN s = s + A(i)
NEXT i
PRINT "Сумма четных элементов массива*="; s
END

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

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

Leave a Comment