q197721294

program q197721294;

const M = 7;
      N = 4;

var a: array[1..M,1..N] of real;
    i, j: integer;
    s: real;

begin
  randomize;

  s := 0;
  for i:=1 to M do
  begin
    for j:=1 to N do
    begin
      a[i,j] := (random(1000) - 500) / 10;
      s := s + a[i,j];
    end;
  end;
  s := s / (N * M);
  writeln('s = ', s);

  for i:=1 to M do
    for j:=1 to N do
      if (a[i,j] > s) then
        write(a[i,j]:6:1);
  writeln;
end.