Program my1;
const B :array [1..7] of real = (13.54, -5.98, -7.05, 45.7, 0.51, 4.78, -0.54);
var n, sr: real; i: integer;
Procedure sor(n:real; var sred:real);
var i, k:integer;
begin
for i:=1 to 7 do
if (abs(B[i])begin
sred:=sred+B[i];
k:=k+1;
end;
sred:=sred/k;
end;
begin
write('Введите заданное число: ');
readln(n);
sor(n, sr);
writeln('Среднее арифметическое таких чисел: ', sr);
for i:=1 to 7 do
if B[i]>sr then writeln(B[i]);
end.