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

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

Задать свой вопрос
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:


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

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

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

Войти на сайт