Дано натуральное число N (N <= 32767) и N целых чисел, не превышающих по модулю 32767. Найти среднее арифметическое и сумму чисел, которые меньше его. Точность среднего арифметического - 5 знаков после запятой.
Формат вывода: среднее арифметическое и сумма чисел меньше его через пробел.
Const maxN = 100; // Максимальное кол-во элементов массива var n, i: longint; middle, sum, sum2: real; // Может быть нецелым числом a: array[1..maxN] of real; begin write('Введите количество элементов массива: '); readln(n); sum := 0; // Считаем сумму всех элементов, чтобы найти среднее арифметическое write('Введите элементы массива через пробел: '); for i := 1 to n do begin read(a[i]); sum := sum + a[i]; end; middle := sum / n; // Вычисляем среднее арифметическое writeln('Среднее арифметическое = ', middle); sum2 := 0; // Считаем сумму элеметов, меньших среднего арифметического for i := 1 to n do if a[i] < middle then sum2 := sum2 + a[i]; writeln('Сумма элементов, меньших среднего арифметического = ', sum2); end.
Дано натуральное число 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