配列の要素に値を読み込む (代入式)

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

C



#include <stdio.h>
#define NINSU 5
int main(int argc, char* argv[])

{

    int i;

    int score[NINSU];

    int sum = 0;

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

    {

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

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

        sum += score[i];

    }
    min = max = score[0];

    for (i = 0; i < NINSU; i++)

    {

        if (score[i] < min) min = score[i];

        if (score[i] > max) max = score[i];

    }
    printf("最低点%d\n", min);

    printf("最高点%d\n", max);

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

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

}

実行結果



R:\>lesson036\project1.exe

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

1番：17

2番：38

3番：52

4番：41

5番：63

最低点17

最高点63

合計点211

平均点42.200000

Delphi

該当する機能がない

Perl

$sum = 0;

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

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

$min = $max = $score[0];

foreach $s(@score)
{
    $min = $s if ($s < $min);
    $max = $s if ($s > $max);
}

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

実行結果



L:\>perl lesson_05_036.pl

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

1番：17

2番：38

3番：52

4番：41

5番：63

最低点17

最高点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

min = max = score[0]

score.each do |s|
    min = s if (s < min)
    max = s if (s > max)
end

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

実行結果



L:\>ruby  l:\lesson_05_036.rb

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

1番：17

2番：38

3番：52

4番：41

5番：63

最低点17

最高点63

合計点211

平均点42.200000