Question

Составить блок-схему алгоритма и программу на алгоритмическом языке программирования БЕЙСИК обработки одномерного массива. Заполнение массива элементами организовать путем ввода с клавиатуры. В одномерном массиве из N натуральных чисел вычислить сумму удвоенных четных чисел.

Answer 1

CLS
INPUT "N=", N
DIM M(100)
S = 0
FOR i = 1 TO N
PRINT "M(" + STR$(i) + ") =";
INPUT M(i)
IF M(i) 2 = M(i) / 2 THEN
S = S + 2 * M(i)
END IF
NEXT i
PRINT "S="; S