Помогите написать программу в паскаль АBC задание:

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

Question

Информатика

Викторинка

30 ноября, 13:36

Помогите написать программу в паскаль АBC задание:

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

+2

Ответы (1)

Знаете ответ на вопрос?

Изяслав · Answer 1

Var N, A, Min:integer;

Begin

Min:=30001;

Read (N) ;

For N: = 1 to N do

Begin

Read (A) ;

if (A mod 2 = 0) and (A < Min) then Min:=A;

End;

WriteLn (Min)

End.