Напишите программу, которая находит в массиве минимальный и максимальный из чётных положительных элементов.

Входные данные

Первая строка содержит размер массива N. Во второй строке через пробел задаются N чисел - элементы массива. Гарантируется, что 0 < N≤ 10000.

Выходные данные

Программа должна вывести в одной строке минимальный и максимальный из чётных положительных элементов массива, разделив их пробелом. Если в массиве нет чётных положительных элементов, программа должна вывести два числа - 1.

Question

Информатика

Рэнси

27 ноября, 05:48

Напишите программу, которая находит в массиве минимальный и максимальный из чётных положительных элементов.

Входные данные

Первая строка содержит размер массива N. Во второй строке через пробел задаются N чисел - элементы массива. Гарантируется, что 0 < N≤ 10000.

Выходные данные

Программа должна вывести в одной строке минимальный и максимальный из чётных положительных элементов массива, разделив их пробелом. Если в массиве нет чётных положительных элементов, программа должна вывести два числа - 1.

+4

Ответы (1)

Знаете ответ на вопрос?

Ирмек · Answer 1

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.