15. В заданном массиве вещественных чисел определить количество элементов меньших среднего арифметического значения.

Question

Информатика

Антипий

25 ноября, 08:03

15. В заданном массиве вещественных чисел определить количество элементов меньших среднего арифметического значения.

+1

Ответы (1)

Знаете ответ?

Кима · Answer 1

Uses crt;

const N=30;

var a:array [1 ... N] of integer;

i, sum, k:integer;

sr:real;

begin

for i:=1 to N do

begin

readln (a[i]) ;

sum:=sum+a[i];

end;

sr:=sum/N;

for i:=1 to N do

if a[i]
writeln (k) ;

end.