Помогите с задачкой на QBasic

[Romchik]

Дан численный массив
N=7 x {3, 8, 15, 37, 41, 42, 22}
Требуется определить четные числа в массиве, подсчитать их коллеичество и напечатать

вот мой вариант, но ничего не получается, учитель-дед тупит, помогите пожалуйста

cls
input "n=n", n
i=1
kl=0
input x1
if fix (x1/2=x1/2) then goto 10
print x1
10kl=kl+1=1
i=i+1=2
end

 

[Smart sys]

Дан численный массив
N=7 x {3, 8, 15, 37, 41, 42, 22}
Требуется определить четные числа в массиве, подсчитать их коллеичество и напечатать

вот мой вариант, но ничего не получается, учитель-дед тупит, помогите пожалуйста

cls
input "n=n", n
i=1
kl=0
input x1
if fix (x1/2=x1/2) then goto 10
print x1
10kl=kl+1=1
i=i+1=2
end

Что выдает ?

 

[AAlexander]

Первая ошибка, однозначно, здесь:
if fix (x1/2=x1/2) then goto 10
Должно быть
if fix (x1/2)=x1/2 then goto 10

И вообще алгоритм не из лучших.
ЗЫ Неужели где-то ещё изучают QBasic?

 

[Smart sys]

Первая ошибка, однозначно, здесь:
if fix (x1/2=x1/2) then goto 10
Должно быть
if fix (x1/2)=x1/2 then goto 10

И вообще алгоритм не из лучших.
ЗЫ Неужели где-то ещё изучают QBasic?

Я QB занимался лет 6 назад...

10kl=kl+1=1

Возможно здесь:
10: kl=kl+1=1
или:
10:kl=kl+1=1
А может и нет...

 

[AAlexander]

И это только синтаксические ошибки, а ещё и алгоритмических - куча!!
Короче сделай нормальный цикл "For", а ещё лучше, разбей на два логических куска: ввод данных и обработка введенной инфы - так красивей, имхо.

 

[Dr.Evil]

CLS
CONST n = 7
k = 0
DIM a

FOR i = 1 TO n
PRINT "Vvedite chislo"
INPUT a(i)
NEXT i

FOR i = 1 TO n
IF (a(i) MOD 2) = 0 THEN
k = k + 1
PRINT a(i)
END IF
NEXT i
PRINT "Kol-vo: ", k

 

[Kaktus-t]

I don't speak Russian, but I'm happy to help with QBasic. What's the specific problem you're having? Share the code or the error, and I'll try to assist you with an English translation or explanation.