const
    a = -10; b = 100; n = 20;
// a, b - границы случайных чисел [a;b];
var m:array[1..n] of integer;
    i, k, sa, nsa:integer;
// k - количество четных; sa - сумма элементов < 50; nsa - количество элементов < 50;
begin
    k := 0; sa := 0; nsa := 0;
    writeln ('Массив из ', n, ' элементов');
    writeln ('Случайные цифры в диапазоне [', a, ';', b, ']');
    for i:=1 to n do
    begin
        m[i] := (random(b-a+1)+a);
        write (m[i], ' ');
        if m[i] mod 2 = 0 then k := k + 1;
        if m[i] < 50 then
        begin
            nsa := nsa + 1;
            sa := sa + m[i];
        end;
    end;
    writeln ('');
    writeln ('Количество четных чисел в массиве: ', k);
    writeln ('Среднее арифметическое элементов, которые < 50: ', (sa/nsa):0:3);
end.