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

На 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