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

PascalABC? PascalABC.Net? Free Pascal?

На каком вообще языке программирования надо было написать?

кумир

Код на "кумир":

цел таб a[1:32767]цел i, n, sumвещ srалгнач. ввод n. sr:=0. sum:=0. нц для i от 1 до n. . ввод a[i]. . sr:=sr+a[i]. кц. sr:=sr/n. вывод sr, " ". нц для i от 1 до n. . если a[i]. . . то sum:=sum+a[i]. . все. кц. вывод sum, нскон

Дано натуральное число 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