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.