Блок схема - найти среднее арифметическое нечетных чисел (QBasic)

[DjMalove]

При вводе К чисел найдите среднее арифметическое тех из них, которые являются нечетными.
Правильно? -QBasic

CLS
INPUT "k = ", k
FOR i = 1 TO k
    INPUT "n = ", c
    IF c MOD 2 = 1 THEN
        S = S + c: n = n + 1
    END IF
NEXT i
CLS
IF n > 0 THEN
    S = S / n
    PRINT "SrAr="; S
ELSE
    PRINT "not"
END IF

Помогите составить блок схему пожайлусто



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

в целом всё правильно, только я бы перед FOR обязательно дописал обнуление переменных S и n:

CLS
s = 0 : n = 0
INPUT "k = ", k
FOR i = 1 TO k
    INPUT "n = ", c
....

[DjMalove]

Сообщение от Serge_Bliznykov

в целом всё правильно, только я бы перед FOR обязательно дописал обнуление переменных S и n:

CLS
s = 0 : n = 0
INPUT "k = ", k
FOR i = 1 TO k
    INPUT "n = ", c
....

спасибо... а как блок схему сделать?