Блок-схема алгоритма

Программа

REM Задание 2

DIM A(815)

S=0 ‘Начальное значение суммы

FOR I=1 TO 815

A(I)=RND*100-50

IF A(I) MOD 2=O THEN S=S+A(I)

NEXT I

PRINT “Сумма=”;S

END

22