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

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

Входные данные Выходные данные 8
4
3
20
6
6

Задать свой вопрос
1 ответ

Ответ:

Объяснение:

var

   i, min, n, d: integer;

begin

   readln(n);

   min:=30000;

   

   for i := 1 to n do

   begin

       readln(d);

       if (d mod 2 = 0) and (mingt;d) then

           min:=d

   end;

   

   writeln(min);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт