1)ввести с клавиатуры массив из n элементов вывести на экран элементы меньшие среднего арифметического всех элементов массива
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент

спасибо большое

1)const n=?; //Сюда поставить любое нужное nVar a:array[1..n] of real;i,x,k:integer; s:real;Begin for i:=1 to n do   begin    readln(x);    a[i]:=x;   end; s:=0; k:=0; for i:=1 to n do  begin   s:=s+a[i];   k:=k+1;  end; s:=s/k; for i:=1 to n do  if a[i]<s then    write(a[i],', '); s:=s/k; for i:=1 to n do  if a[i]<s then    write(a[i],', '); readln;End.2)Const n=?;Var a:array[1..n] of integer;i,max,min:integer;Begin for i:=1 to n do   begin    readln(x);    a[i]:=x;   end; min:=a[1]; max:=a[1]; for i:=1 to n do   if (i mod 2)=0 then     if a[i]>max then       max:=a[i]; for i:=1 to n do   if (i mod 2)<>0 then     if a[i]<min then       min:=a[i]; writeln('max=',max); writeln('min=',min); readln;End.