配列の要素に値を読み込む

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

C



#include <stdio.h>

int main(int argc, char* argv[])

{

    int i;

    int score[5];

    int sum = 0;
    puts("点数を入力してください。");
    for (i = 0; i < 5; i++)

    {

        printf("%d番：", i + 1);

        scanf("%d", &score[i]);

        sum += score[i];

    }
    printf("合計点%d\n", sum);

    printf("平均点%f\n", (double)sum / 5);
    return 0;

}

実行結果



R:\>lesson034\project1.exe

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

1番：17

2番：38

3番：52

4番：41

5番：63

合計点211

平均点42.200000

Delphi



program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

var

    i: Integer;

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

    sum: Integer = 0;

begin

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

    begin

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

        read(score[i]);

        sum := sum + score[i];

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

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

end.

実行結果



S:\>lesson034\project1.exe

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

1番：17

2番：38

3番：52

4番：41

5番：63

合計点211

平均点42.200000

Perl

$sum = 0;

print "点数を入力してください。\n";

for (0..4)
{
    printf("%d番：", $_ + 1);
    chomp($score[$_] = <>);
    $sum += $score[$_];
}

printf("合計点%d\n", $sum);
printf("平均点%f\n", $sum / 5);

実行結果



L:\>perl lesson_05_034.pl

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

1番：17

2番：38

3番：52

4番：41

5番：63

合計点211

平均点42.200000

Ruby

score = []
sum = 0

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

for i in 0..4
    printf("%d番：", i + 1)
    score[i] = STDIN.gets.chomp.to_i
    sum += score[i]
end

printf("合計点%d\n", sum)
printf("平均点%f\n", sum.to_f / 5)

実行結果



L:\>ruby  l:\lesson_05_034.rb

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

1番：17

2番：38

3番：52

4番：41

5番：63

合計点211

平均点42.200000