Найти среднее арифметическое элементов массива. Найти сумму элементов массива, которые меньше среднего арифметического

Дано натуральное число N (N < = 32767) и N целых чисел, не превышающих по модулю 32767. Найти среднее арифметическое и сумму чисел, которые меньше его. Точность среднего арифметического - 5 знаков после запятой.

Формат вывода: среднее арифметическое и сумма чисел меньше его через пробел.

Код (Pascal)

var

i, n: integer;

a: array[1 ... 32767] of integer;

sr: real;

sum: longint;

begin

read (n) ;

sr : = 0;

sum : = 0;

for i : = 1 to n do

begin

read (a[i]) ;

sr : = sr + a[i];

end;

sr : = sr / n;

write (sr:5:5, ' ') ;

for i : = 1 to n do

if a[i] < sr then sum : = sum + a[i];

writeln (sum) ;

end.

Тесты

Ввод:

3

1 2 3

Вывод:

2.00000 1

Ввод:

3

0 0 2

Вывод:

0.66667 0