Найти средне арифметическое элементов последовательности, превосходящих некоторое число...

Question

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

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.