Question

20 б! . Паскаль. Дана последовательность из целых чисел. Числа находятся в диапазоне от - 1000 до 1000. Определить максимальное из четных чисел. Если четных чисел нет, вывести 0.

Answer 1

Ответ:

var

 i, n, x, max:integer;

begin

 max := -1001;

 read(n); // Количество вводимых чисел

 for i := 1 to n do begin

   read(x); // Ввод чисел

   if(x mod 2 = 0) and (x > max) then

     max := x;

 end;

 if(max = -1001) then

   write(0)

 else

   write(max);

end.

Answer 2

===== PascalABC.NET =====

begin

 ReadSeqInteger(ReadInteger('n ='))

     .Where(p -> p.IsEven)

     .DefaultIfEmpty

     .Max

     .Print

end.

Answer 3

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

pascalCopy code
program MaxEvenNumber;

var
  number, maxEven: integer;

begin
  maxEven := 0; // Изначально максимальное четное число равно 0

  repeat
    write('Введите целое число (для завершения введите 0): ');
    readln(number);

    if (number mod 2 = 0) and (number > maxEven) then
      maxEven := number;

  until number = 0;

  if maxEven > 0 then
    writeln('Максимальное четное число: ', maxEven)
  else
    writeln('Четных чисел нет.');

  readln;
end.

Эта программа сначала инициализирует maxEven значением 0, а затем считывает числа из ввода, проверяя каждое число на четность и обновляя maxEven, если находит большее четное число. Когда пользователь введет 0 для завершения ввода, программа выведет максимальное четное число или сообщение о том, что четных чисел нет.