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

на языке qbasic

1

Ответы и объяснения

2014-03-21T16:21:24+00:00
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