program HelloWorld;
var a: array of integer;
var N, min, max, i, variable:integer;
begin
min := 32767;
max := 0;
readln(N);
for i := 0 to N do begin
readln(variable);
if (variable > 0) and (variable mod 2 = 0) and (variable > max) then
max := variable;
if (variable > 0) and (variable mod 2 = 0) and (variable < min) then
min := variable;
end;
if (max <> 0) and (min <> 32767) then
writeln(min, ' ', max)
else
writeln(-1);
end.
program HelloWorld;
var a: array of integer;
var N, min, max, i, variable:integer;
begin
min := 32767;
max := 0;
readln(N);
for i := 0 to N do begin
readln(variable);
if (variable > 0) and (variable mod 2 = 0) and (variable > max) then
max := variable;
if (variable > 0) and (variable mod 2 = 0) and (variable < min) then
min := variable;
end;
if (max <> 0) and (min <> 32767) then
writeln(min, ' ', max)
else
writeln(-1);
end.
1) Поскольку основанием конуса является круг нужно построить круг
2) Нужно провести линию нужной длины от центра круга (использовать инструмент Линия)
3) Верхнюю точку линии соединить с точкой окружности (использовать инструмент Линия)
4) Соединить центр круга и конец второй линии (использовать инструмент Линия)
5) Выделить окружность (использовать инструмент Выбрать)
6) Выбрать инструмент Ведение
7) Нажимаем на полученный из линий треугольник и получаем конус