ПомогитеВводится последовательность из N положительных целых чисел. Найтинаименьшее число среди чётных элементов последовательности.n=1-100Lazarus
Помогите
Вводится последовательность из N положительных целых чисел. Найтинаименьшее число среди чётных элементов последовательности.
n=1-100
Lazarus
Гость
Ответ(ы) на вопрос:
Гостьvar n,min,a:integer;
begin
readln(n);
min:=30000;
for n:=n downto 1 do begin
read(a);
if (not odd(a)) and (a
Не нашли ответ?
Похожие вопросы