program ideone;
begin
	(* your code goes here *)
end.var
  N, i, j, passCount: integer;
  scores, sortedScores: array[1..1000] of real;
  sum, mean, maxScore, minScore: real;
  varianceSum, stdDev, median, temp, deviation: real;

begin
  // 1. 人数(N)の読み込み
  read(N);

  // 10人以上であるかのチェック
  if N < 10 then
  begin
    writeln('エラー: 学生の点数は10人以上入力してください。');
  end
  else
  begin
    sum := 0;
    passCount := 0;

    // 2. 点数の読み込みと基本集計（合計、合格者数、最高点、最低点）
    for i := 1 to N do
    begin
      read(scores[i]);
      sortedScores[i] := scores[i];
      sum := sum + scores[i];

      // 60点以上を合格とする
      if scores[i] >= 60 then
        passCount := passCount + 1;

      // 最高点・最低点の更新
      if i = 1 then
      begin
        maxScore := scores[i];
        minScore := scores[i];
      end
      else
      begin
        if scores[i] > maxScore then maxScore := scores[i];
        if scores[i] < minScore then minScore := scores[i];
      end;
    end;

    // 3. 平均の計算
    mean := sum / N;

    // 4. 標準偏差の計算
    varianceSum := 0;
    for i := 1 to N do
    begin
      varianceSum := varianceSum + sqr(scores[i] - mean);
    end;
    stdDev := sqrt(varianceSum / N);

    // 5. 中央値(Median)の計算のために配列をソート (バブルソート)
    for i := 1 to N - 1 do
    begin
      for j := i + 1 to N do
      begin
        if sortedScores[i] > sortedScores[j] then
        begin
          temp := sortedScores[i];
          sortedScores[i] := sortedScores[j];
          sortedScores[j] := temp;
        end;
      end;
    end;

    // 偶数・奇数で中央値の計算を分ける
    if N mod 2 = 1 then
      median := sortedScores[N div 2 + 1]
    else
      median := (sortedScores[N div 2] + sortedScores[N div 2 + 1]) / 2.0;

    // 6. 全体結果の出力 (小数点以下2桁で表示)
    writeln('平均 (Mean)       : ', mean:0:2);
    writeln('中央値 (Median)   : ', median:0:2);
    writeln('最高点 (Max)      : ', maxScore:0:2);
    writeln('最低点 (Min)      : ', minScore:0:2);
    writeln('標準偏差 (StdDev) : ', stdDev:0:2);
    writeln('合格者数 (Passed) : ', passCount, ' 人');
    writeln;
    writeln('--- 各点数と偏差値 ---');

    // 7. 各学生の偏差値を計算して出力
    for i := 1 to N do
    begin
      // 標準偏差が0（全員同じ点数）の場合のゼロ除算対策
      if stdDev > 0 then
        deviation := 50.0 + 10.0 * (scores[i] - mean) / stdDev
      else
        deviation := 50.0;
        
      writeln('点数: ', scores[i]:0:2, ' | 偏差値: ', deviation:0:2);
    end;
  end;
end.