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

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

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

Паскаль

Question

Информатика

Элисса

2 января, 09:47

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

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

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

Паскаль

+4

Ответы (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.