Найти средне арифметическое элементов последовательности, превосходящих некоторое число С. Массив задан датчиком случайных чисел на интервале [-44, 35]. Размер произвольный. Значение С вводится с экрана.

Question

Информатика

Валентиныч

21 января, 13:33

Найти средне арифметическое элементов последовательности, превосходящих некоторое число С. Массив задан датчиком случайных чисел на интервале [-44, 35]. Размер произвольный. Значение С вводится с экрана.

+3

Ответы (1)

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

Валена · Answer 1

var

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

i, c, k:integer;

sr:real;

begin

randomize;

for i:=1 to 20 do begin

a[i]:=random (80) - 44;

write (a[i],' ') ;

end;

writeln;

write ('C = ') ; readln (c) ;

for i:=1 to 20 do

if a[i]>c then begin

sr:=sr+a[i];

k:=k+1;

end;

sr:=sr/k;

writeln (sr:0:2) ;

readln;

end.