Дано натуральное число N (N <= 32767) и N целых чисел, не превышающих по модулю 32767. Найти среднее арифметическое и сумму чисел, которые меньше его. Точность среднего арифметического - 5 знаков после запятой.
Формат вывода: среднее арифметическое и сумма чисел меньше его через пробел.
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
#include <stdio.h>
#include <conio.h>
#include <limits.h>
#define N 15
int main()
{
int mas[N];
int i;
for (i = 0; i < N; i++)
{
printf("mas[%d] = ", i+1);
scanf("%d", &mas[i]);
}
int count = 0, sum = 0, count1 = 0, min = INT_MAX;
for(int i=0; i<N; i++)
{
if (mas[i] > 20)
{
sum += mas[i];
count++;
}
if(mas[i]>=0)
count1++;
if(mas[i]<min)
min = mas[i];
}
sum = sum / count;
printf("Средне арифметическое элементов больше 20: %d ", sum);
printf("\n");
printf("Положительных: %d ", count1);
printf("\n");
printf("Минимальный: %d ", min);
printf("\n");
getch();
return 0;
}