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

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.