Дана последовательность из N вещественных чисел. Первое число в последовательности нечетное.

О четности либо нечетности вещественного числа можно сказать только если оно не имеет дробной доли. В этом случае оно приводится к целому числу. Я не знаю, для чего дано безусловно неразумное требование не использовать условный оператор, но выполнить его можно. Надобно множить число на безусловную величину остатка от его дробленья на 2. Если число четное, остаток будет нулевым, нечетное - единичным. Потому результатом умножения будет либо само нечетное число, либо ноль. И можно все попорядку ложить.

CLS
DIM n AS INTEGER
INPUT "n=", n
DIM i AS INTEGER, k AS INTEGER, x AS SINGLE, s AS SINGLE, i AS INTEGER
s = 0
FOR i = 1 TO n
   INPUT "-gt;", x
   s = s + x * (ABS(INT(x)) MOD 2)
NEXT i
PRINT "s = ", s