配列の受け渡し

明解Ｃ言語 入門編 > 6. 関数 >

配列の受け渡し

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
function max_of(vc:array of Integer): Integer;

var

    i: Integer;

begin

    result := vc[0];
    for i := Low(vc) to High(vc) do

        if vc[i] > result then  result := vc[i];

end;
const

    NINSU = 5;

var

    i: Integer;

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

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

    max_e, max_m: Integer;

begin

    writeln(format('%d人の点数を入力してください。', [NINSU]));
    for i := 1 to NINSU do

    begin

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

        read(eng[i]);
        write('    数学：');

        read(mat[i]);

    end;
    max_e := max_of(eng);

    max_m := max_of(mat);
    writeln(format('英語の最高点%d', [max_e]));

    writeln(format('数学の最高点%d', [max_m]));

end.

実行結果

S:\>lesson047\project1.exe

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

[1] 英語：53

    数学：82

[2] 英語：49

    数学：35

[3] 英語：21

    数学：72

[4] 英語：91

    数学：35

[5] 英語：77

    数学：12

英語の最高点91

数学の最高点82