Сформировать массив, подсчитать количество элементов не превосходящих заданного числа n-задано с клавиатуры. Найти их среднее арифметическое значение.

Question

Информатика

Мелана

27 марта, 20:37

Сформировать массив, подсчитать количество элементов не превосходящих заданного числа n-задано с клавиатуры. Найти их среднее арифметическое значение.

+5

Ответы (1)

Знаете ответ на вопрос?

Лаврентьюшка · Answer 1

Var a:array [1 ... 20] of integer;

s, k, i:integer;

begin

k:=0; s:=0;

for i:=1 to n do

read (a[i]) ;

readln (n) ;

for i:=1 to 20 do

if a[i]<=n then begin

k:=k+1;

s:=s+a[i];

end;

writeln ('Кол-во:', k) ;

writeln ('Средн. арифм.:', s/k)

end.