qBasic. Дана матрица 5х5. Найти четные элементы массива и заменить их нулями.

DIM a(5, 5) AS INTEGER
RANDOMIZE TIMER
PRINT "Дана матрица 5x5:"
FOR i = 1 TO 5
FOR j = 1 TO 5
a(i, j) = FIX(RND * 201) - 100
PRINT USING "#####"; a(i, j);
NEXT
PRINT
NEXT
PRINT
PRINT "Преобразованная матрица: "
FOR i = 1 TO 5
FOR j = 1 TO 5
IF a(i, j) MOD 2 = 0 THEN a(i, j) = 0
PRINT USING "#####"; a(i, j);
NEXT
PRINT
NEXT
END