program StudentStatistics;

uses Math;

const
  MAX = 100;

var
  score, sorted: array[1..MAX] of Integer;
  hensachi: array[1..MAX] of Real;
  n, i, j, temp, pass: Integer;
  sum, ave, median, sd, variance: Real;
  maxScore, minScore: Integer;

begin
  { 人数入力（10人以上） }
  readln(n);

  if n < 10 then
  begin
    writeln('人数は10人以上入力してください。');
    halt;
  end;

  sum := 0;
  pass := 0;

  { 点数入力 }
  for i := 1 to n do
  begin
    readln(score[i]);
    sorted[i] := score[i];

    sum := sum + score[i];

    if score[i] >= 60 then
      pass := pass + 1;
  end;

  ave := sum / n;

  { 最高点・最低点 }
  maxScore := score[1];
  minScore := score[1];

  for i := 2 to n do
  begin
    if score[i] > maxScore then
      maxScore := score[i];
    if score[i] < minScore then
      minScore := score[i];
  end;

  { 並べ替え（バブルソート） }
  for i := 1 to n - 1 do
    for j := 1 to n - i do
      if sorted[j] > sorted[j + 1] then
      begin
        temp := sorted[j];
        sorted[j] := sorted[j + 1];
        sorted[j + 1] := temp;
      end;

  { 中央値 }
  if n mod 2 = 1 then
    median := sorted[(n + 1) div 2]
  else
    median := (sorted[n div 2] + sorted[n div 2 + 1]) / 2.0;

  { 標準偏差 }
  variance := 0;
  for i := 1 to n do
    variance := variance + sqr(score[i] - ave);

  variance := variance / n;
  sd := sqrt(variance);

  { 偏差値 }
  for i := 1 to n do
  begin
    if sd = 0 then
      hensachi[i] := 50
    else
      hensachi[i] := 50 + 10 * (score[i] - ave) / sd;
  end;

  { 出力 }
  writeln('平均 = ', ave:0:2);
  writeln('中央値 = ', median:0:2);
  writeln('最高点 = ', maxScore);
  writeln('最低点 = ', minScore);
  writeln('標準偏差 = ', sd:0:2);
  writeln('合格者数 = ', pass);

  writeln;
  writeln('偏差値');
  for i := 1 to n do
    writeln(i:2, '人目  点数=', score[i]:3,
            '  偏差値=', hensachi[i]:0:2);
end.