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

Ответы 1

  • Var N,A,Min:integer;BeginMin:=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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years