Задача с циклами: Вычислить сумму четных целых чисел из [n,m].

Question

Задача с циклами:
Вычислить сумму четных целых чисел из [n,m].

Answer 1

На BASICе
DIM x(n,m) AS INTEGER
REM здесь нужен ввод массива
s=0
FOR i=1 TO n
FOR j=1 TO m
   IF x(i,j) mod 2 = 0 THEN s=s+x(i,j)
NEXT j
NEXT i
PRINT s

Comments

Де факто на PascalABC. Но все равно спасибо, Да и к тому же сделал я ее