Question

Напишите программу, которая в последовательности натуральных чисел определяет минимальное число минимальное чётное число. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется чётное число. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – минимальное чётное число.

 на языке qbasic

Answer 1

cls
INPUT N
DIM A(N)
FOR I = 1 TO N
INPUT A(I)
NEXT I
MIN = 30000
FOR I = 1 TO N
IF A(I) MOD 2 =0 THEN
   IF A(I) < MIN THEN
   MIN= A(I)
   END IF
END IF
NEXT I
PRINT MIN