program batya;
var a:array[1..15, 1..15] of real;
    b:array[1..15]  of byte;

	k,n,m,i,d,j:integer;
	Sr,s:real;
begin
  writeln('введи количество первой строки ');
    readln(n);
  writeln('Введите количество столбцов');
  readln(m);
  randomize;
  for i:=1 to n do
  for j:=1 to m do
  A[i,j]:=random*27-13;
  for i:=1 to n do
  begin
  writeln;


  for j:=1  to m do
  write(A[i,j]:7:1);
  end;

  for i:=1 to n do
  for j:=1 to m do
  S:=S+A[i,j];

  Sr:= S/(m*n);
  for i:=1 to m do
  begin
  k:=0;
  for j:=1 to m do
  if  A[i,j]>Sr then
  k:=k+1;
  B[i]:=k;
  end;
  writeln();
  writeln('Sr=', Sr);

  for i:=1 to n do
  write(B[i], ' ');
end.