Question

Помогите пожалуйста Написать программу, которая суммирует N отрицательных четных чисел из вводимых с клавиатуры чисел, при вводе N=0 выход из программы.

Answer 1

CLS

b:

INPUT n

IF n<0 OR INT(n)<>n THEN GOTO b

IF n=0 THEN END

DIM a(n)

FOR i = 1 TO n

a:

INPUT a(n)

IF a(n) >= 0 OR INT (a(n)/2)<>(a(n)/2) THEN GOTO a

s=s+a(n)

NEXT i

PRINT s