５人の点数を読み込んで合計点と平均点を表示

明解Ｃ言語 入門編 > 5. 配列 >

５人の点数を読み込んで合計点と平均点を表示

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

var

    score1, score2, score3, score4, score5: Integer;

    sum: Integer = 0;

begin

    writeln('点数を入力してください。');
    write('１番：');

    read(score1);
    write('２番：');

    read(score2);
    write('３番：');

    read(score3);
    write('４番：');

    read(score4);
    write('５番：');

    read(score5);
    sum := sum + score1;

    sum := sum + score2;

    sum := sum + score3;

    sum := sum + score4;

    sum := sum + score5;
    writeln(format('合計点%d', [sum]));

    writeln(format('平均点%.6f', [sum / 5.0]));

end.

実行結果

S:\>lesson029\project1.exe

点数を入力してください。

１番：95

２番：83

３番：85

４番：63

５番：89

合計点415

平均点83.000000