дано натуральное число 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
Поделитесь своими знаниями, ответьте на вопрос:
Используя 2 бидона по 5 и по 7 литров, наберите из бочки 6 литров воды