Напишите программу, которая в последовательности натуральных чисел определяет минимальное четное двузначное число.
Программа получает на вход кол-во чисел в последовательности, а затем сами числа. В последовательности всегда имеется четное двузначное число.
Кол-во чисел не превышает 1000. Введенные числа не превышают 30000.
Программа должна вывести одно число - минимальное четное двузначное число последовательности.
Выполнить по примеру ниже:
Программа получает на вход кол-во чисел в последовательности, а затем сами числа. В последовательности всегда имеется четное двузначное число.
Кол-во чисел не превышает 1000. Введенные числа не превышают 30000.
Программа должна вывести одно число - минимальное четное двузначное число последовательности.
Выполнить по примеру ниже:
More Questions From This User See All
Answers & Comments
Ответ:
var
a, // элемент последовательности
// натуральных чисел (<=30000)
i, // порядковый номер элемента а
n, // количество элементов а (<=1000)
m: // минимальное четное двузначное число
// среди элементов а
integer;
begin
read(n);
m := 98;
for i := 1 to n do
begin
read(a);
if (a >= 10) and (a <= 99) and (a mod 2 = 0) and (a < m) then
m := a;
end;
write(m);
end.
Объяснение:
Не форматированный код:
var
a, // элемент последовательности
// натуральных чисел (<=30000)
i, // порядковый номер элемента а
n, // количество элементов а (<=1000)
m: // минимальное четное двузначное число
// среди элементов а
integer;
begin
read(n);
m := 98;
for i := 1 to n do
begin
read(a);
if (a >= 10) and (a <= 99) and (a mod 2 = 0) and (a < m) then
m := a;
end;
write(m);
end.
Неожиданный символ ' '
4
160
13
68
92
и что бы программа выдала 68