program hh;
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
i,j,p,k,more, less:integer; S:real;
Begin
clrscr;
randomize;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(20)-5;
write(a[i,j]:7); end;
writeln; end;
writeln('-----------------------');
for i:=1 to n do begin
S:=0;
for j:=1 to n do S:=S +a[i,j];
S:=S/n;
more:=0;
less:=0;
for j:=1 to n do
if a[i,j]>S then inc(more)
else if a[i,j] writeln('in',i,'line:',more,'more and',less,'less than', S:0:2);
end;
end.