Написать программу в паскаль аbc : напишите программу - вопрос №7414674 от ириша182300 29.07.2020 04:30

Question

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

ириша182300 · Answer

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....