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

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