Сосчитать сумму нечётных чисел в таблице A(n,m) — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
INPUT N
INPUT M
DIM A(N, M)
FOR I = 0 TO N
    FOR J = 1 TO M
        INPUT A(I, J)
    NEXT
NEXT
FOR I = 1 TO N
    FOR J = 1 TO M
        IF A(I, J) MOD 2 <> 0 THEN S = S + A(I, J)
    NEXT
NEXT
PRINT "S="; S
END

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment