//Pascal
//4)
var
  A: array [1..255] of integer;
  i, N: byte;
  sum, count: integer;
begin
  sum := 0; count := 0;
  write('Введите количество элементов в массиве: ');
  readln(N);
  writeln('Заполнение массива.');
  for i := 1 to N do
  begin
    write('A[',i,'] = '); readln(A[i]);
    if A[i] < 50 then
    begin
       sum := sum + A[i];
       count := count + 1;
    end;
  end;
  writeln('Среднее арифметическое = ', sum/count);
end. 

//5)
var
  A: array [1..255] of integer;
  i, N: byte;
  mult: real;
begin
  mult := 1;
  write('Введите количество элементов в массиве: ');
  readln(N);
  writeln('Заполнение массива.');
  for i := 1 to N do
  begin
    write('A[',i,'] = '); readln(A[i]);
    if ((A[i] mod 2 = 0) and (A[i] > 0)) then
    mult := mult * A[i];
  end;
  writeln('Произведение четных положительных = ', mult);
end. 

Var
 i,n,k,j:longint;
 a:array[1..100] of integer;
begin
 write('Write size array: '); readln(n);
 for i:=1 to n do
  begin
   a[i]:=Random(100)-20;
   write(a[i]:3);
  end;
  writeln;

 k:=0;  // 4 задание
 j:=0;
 for i:=1 to n do
  if a[i]<50
   then
    begin
     k:=k+a[i];
     j:=j+1;
    end;
 writeln(k/j:0:1);

 k:=1;     // 5 задание
 for i:=1 to n do
  if (a[i] mod 2=0) and (a[i]>0)
   then k:=k*a[i];
 writeln(k);

 readln
end.