Напишите программу, которая обретает в массиве малый и наибольший из чётных
Напишите программку, которая обретает в массиве минимальный и наибольший из чётных положительных частей.
Входные данные
1-ая строка содержит размер массива N . Во второй строке через пробел задаются N чисел элементы массива. Гарантируется, что 0 lt; N 10000 .
Выходные данные
Программка обязана вывести в одной строке малый и максимальный из чётных положительных частей массива, разделив их пробелом. Если в массиве нет чётных положительных частей, программа обязана вывести два числа -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 gt; 0) and (variable mod 2 = 0) and (variable gt; max) then
max := variable;
if (variable gt; 0) and (variable mod 2 = 0) and (variable lt; min) then
min := variable;
end;
if (max lt;gt; 0) and (min lt;gt; 32767) then
writeln(min, ' ', max)
else
writeln(-1);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.