配列の要素に値を読み込む (#define)

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

配列の要素に値を読み込む (#define)

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

const

    NINSU = 5;

var

    i: Integer;

    score: array[1..NINSU] of Integer;

    sum: Integer = 0;

begin

    writeln('点数を入力してください。');
    for i := 1 to NINSU do

    begin

        write(format('%d番：', [i]));

        read(score[i]);

        sum := sum + score[i];

    end;
    writeln(format('合計点%d', [sum]));

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

end.

実行結果

S:\>lesson035\project1.exe

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

1番：17

2番：38

3番：52

4番：41

5番：63

合計点211

平均点42.200000