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

Question

Информатика

Македоний

23 марта, 17:10

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

+2

Ответы (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.