Question

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

Answer 1

Ответ:

var a,i,n,min,max: integer;

begin

write('Введите кол-во чисел в последовательности: ');

readln(n);

min:=1;

max:=2;

for i:=1 to n do

 begin

 write('Введите ',i,' число: ');

 readln(a);

 if (a mod 2 = 0) then  

   begin

   if (min=1) then min:=a

   else if (a<min) then min:=a;

   end

 else

   begin

   if (max=2) then max:=a

   else if (a>max) then max:=a;

   end

 end;  

if (min<>1) then writeln('Минимальное четное: ',min);

if (max<>2) then writeln('Максимальное нечетное: ',max);

end.

Answer 2

Конечно, вот пример программы на языке Паскаль, которая выполняет указанную задачу:

pascalCopy code
program MinMaxEvenOdd;

var
  n, num, minEven, maxOdd: integer;
  isFirstEven, isFirstOdd: boolean;

begin
  minEven := MaxInt; // Инициализируем минимальное четное число большим возможным значением
  maxOdd := -MaxInt; // Инициализируем максимальное нечетное число меньшим возможным значением
  isFirstEven := true;
  isFirstOdd := true;

  write('Введите количество чисел в последовательности: ');
  readln(n);

  for var i := 1 to n do
  begin
    write('Введите число: ');
    readln(num);

    if (num mod 2 = 0) and (num < minEven) then
    begin
      minEven := num;
      isFirstEven := false;
    end;

    if (num mod 2 <> 0) and (num > maxOdd) then
    begin
      maxOdd := num;
      isFirstOdd := false;
    end;
  end;

  if isFirstEven then
    writeln('В последовательности нет четных чисел')
  else
    writeln('Минимальное четное число: ', minEven);

  if isFirstOdd then
    writeln('В последовательности нет нечетных чисел')
  else
    writeln('Максимальное нечетное число: ', maxOdd);
end.

Программа сначала запрашивает количество чисел в последовательности, а затем считывает числа и проверяет их на четность/нечетность. Если число четное и меньше текущего минимального четного числа, оно становится новым минимальным четным числом. Аналогично, если число нечетное и больше текущего максимального нечетного числа, оно становится новым максимальным нечетным числом.

Пожалуйста, учтите, что данная программа предоставляется исключительно в качестве примера и может потребовать некоторой доработки или адаптации под конкретное окружение.