Помогите с задачкой на 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