program seiseki;
var
  n, i, j: integer;
  score: array[1..100] of integer;
  sum: integer;
  max, min: integer;
  pass: integer;
 temp: integer;
  median: real;
  sum2, sd, hensachi: real;
begin
  readln(n);

  sum := 0;
  pass := 0;

  for i := 1 to n do
  begin
    readln(score[i]);

    sum := sum + score[i];

    if i = 1 then
    begin
      max := score[i];
      min := score[i];
    end;

    if score[i] > max then
      max := score[i];

    if score[i] < min then
      min := score[i];

    if score[i] >= 60 then
      pass := pass + 1;
  end;
  writeln('合計=', sum);
  writeln('平均=', sum / n:0:2);
  writeln('最高点=', max);
  writeln('最低点=', min);
  for i := 1 to n - 1 do
begin
  for j := i + 1 to n do
  begin
    if score[i] > score[j] then
    begin
      temp := score[i];
      score[i] := score[j];
      score[j] := temp;
    end;
  end;
end;
if n mod 2 = 1 then
  median := score[(n + 1) div 2]
else
  median := (score[n div 2] + score[n div 2 + 1]) / 2;
  sum2 := 0;
for i := 1 to n do
begin
  sum2 := sum2 + sqr(score[i] - (sum / n));
end;

sd := sqrt(sum2 / n);
    writeln('中央値=', median:0:2);
    writeln('標準偏差=', sd:0:2);
    writeln('偏差値');

for i := 1 to n do
begin
  hensachi := 50 + 10 * (score[i] - (sum / n)) / sd;
  writeln(score[i], '点 -> ', hensachi:0:2);
end;
  writeln('合格者数=', pass);
end.
{
入力例
10
80
75
60
90
55
70
85
40
95
65

出力例
合計=715
平均=71.50
最高点=95
最低点=40
中央値=72.50
標準偏差=16.13
偏差値
40点 -> 30.47
55点 -> 39.77
60点 -> 42.87
65点 -> 45.97
70点 -> 49.07
75点 -> 52.17
80点 -> 55.27
85点 -> 58.37
90点 -> 61.47
95点 -> 64.57
合格者数=8

AI利用について
ChatGPTを利用してプログラム作成を補助した。
・中央値を求めるための並べ替え処理を追加し、表示位置を修正した。
・標準偏差と偏差値の計算・表示を追加した。
}