Напишите программу, которая в последовательности натуральных чисел определяет минимальное четное число.

Программа получает на вход кол-во чисел в последовательности, а затем сами числа. В последовательности всегда имеется четное число. Кол-во чисел не превышает 1000. Введеные числа не превышают 30000.

Программа должна вывести одно число - минимальное четное число.

Паскаль

Question

Информатика

Нюся

15 августа, 04:31

Напишите программу, которая в последовательности натуральных чисел определяет минимальное четное число.

Программа получает на вход кол-во чисел в последовательности, а затем сами числа. В последовательности всегда имеется четное число. Кол-во чисел не превышает 1000. Введеные числа не превышают 30000.

Программа должна вывести одно число - минимальное четное число.

Паскаль

+5

Ответы (1)

Знаете ответ?

Димитрий · Answer 1

Var

a, m, k, i: integer;

begin

write ('Введите количество чисел в последовательности: ') ;

readln (k) ;

m:=30000; / / / Максимальное чётное число

for i : = 1 to k do

begin

write ('Введите число: ') ;

readln (a) ;

if (a mod 2 = 0) and (m>a) then m:=a

end;

writeln ('Минимальное четное число в последовательности: ', m)

end.