Nolemmiv 25 ноября 2019 в 02:02
Задача 2. Напишите программу,которая в последовательности натуральных чисел определяет минимальное чётное число.
Программа получает на вход количество чисел в последовательности ,а затем сами числа.В последовательности всегда имеется четное число.Количество чисел не превышает 1000.Введенные числа не превышают 30 000.Программа должна вывести одно число-минимальное чётное число.
Задача 2. Напишите программу,которая в последовательности натуральных чисел определяет минимальное чётное число.
Программа получает на вход количество чисел в последовательности ,а затем сами числа.В последовательности всегда имеется четное число.Количество чисел не превышает 1000.Введенные числа не превышают 30 000.Программа должна вывести одно число-минимальное чётное число.
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.
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.
Компьютеры и вычисления
472
0
Для комментирования необходимо зарегистрироваться на сайте