Question

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

Answer 1

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

Answer 2

PascalABC? PascalABC.Net? Free Pascal?

Answer 3

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

Answer 4

кумир

Answer 5

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

Answer 6

цел таб 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, нс
кон