Question

Задача в pascal: Даны n чисел из отрезка (-20;20). Найти максимальное четное и максимальное нечетное числа

Answer 1

Var
  n, i, mn, mx, a:integer;
begin
  writeln('Vvedite n:');
  readln(n);
  writeln('Vvedite chisla iz otrezka (-20;20):');
  mn:=0;
  mx:=0;
  for i:=1 to n do
  begin
  readln(a);
  if (a mod 2)=0 then
  if mx<a then mx:=a; 
  if (a mod 2)<>0 then
  if mn<a then mn:=a;
  end;
  writeln('Maximalnoe chetnoe =',mx);
  writeln('Maximalnoe nechetnoe =',mn);
  readln();  
end.

Answer 2

Привет! Вот решение задачи на языке Pascal:

scssCopy code
program max_even_odd;

var
  n, i, x, max_even, max_odd: integer;

begin
  // Считываем количество чисел
  write('Введите количество чисел: ');
  readln(n);
  
  // Инициализируем максимальные четное и нечетное числа
  max_even := -21; // Минимальное четное число из отрезка (-20;20)
  max_odd := -21; // Минимальное нечетное число из отрезка (-20;20)
  
  // Считываем n чисел и находим максимальные четное и нечетное числа
  for i := 1 to n do
  begin
    write('Введите число ', i, ': ');
    readln(x);
    
    // Если число четное и больше текущего максимального четного числа, то обновляем максимальное четное число
    if (x mod 2 = 0) and (x > max_even) then
      max_even := x;
      
    // Если число нечетное и больше текущего максимального нечетного числа, то обновляем максимальное нечетное число
    if (x mod 2 <> 0) and (x > max_odd) then
      max_odd := x;
  end;
  
  // Выводим результаты
  writeln('Максимальное четное число: ', max_even);
  writeln('Максимальное нечетное число: ', max_odd);
  
  readln;
end.

Как работает программа:

• Сначала мы считываем количество чисел n с помощью readln(n).
• Затем мы инициализируем максимальные четное и нечетное числа переменными max_even и max_odd соответственно. Мы присваиваем им минимальное возможное значение в отрезке (-20;20), чтобы гарантировать, что любое введенное число будет больше них.
• Затем мы вводим n чисел с помощью цикла for i := 1 to n do. Каждое число мы считываем с помощью readln(x) и проверяем, является ли оно четным или нечетным с помощью оператора mod. Если число четное и больше текущего максимального четного числа, мы обновляем max_even. Если число нечетное и больше текущего максимального нечетного числа, мы обновляем max_odd.
• После того, как мы проверили все n чисел, мы выводим результаты с помощью writeln.
• Наконец, мы ждем, пока пользователь не нажмет клавишу Enter, с помощью readln.

Надеюсь, это поможет! Если у вас есть какие-либо вопросы, не стесняйтесь спрашивать.