profile
Опубликовано 5 лет назад по предмету Информатика от rualan51

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

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

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

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

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

  1. Ответ
    Ответ дан Paha2230

    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.