Here's my version of the program:
--------------------------------------------------------------------------------------------------
@info = &file_array("C:/scores2.dat");
foreach $i(@info){
chomp($i);
my $average = 0;
my @student = split(/ /, $i);
for(my $j=1;$j<=$#student;$j++){
$average += $student[$j];
}
$average /= $#student;
my $grade ='';
if($average>=90){$grade = 'A'}
elsif($average>=80){$grade = 'B'}
elsif($average>=70){$grade = 'C'}
elsif($average>=60){$grade = 'D'}
else{$grade = 'F'}
print "Average for student #$student[0] is $average\% and grade is: $grade\n";
}
sub file_array{
open(FILE, "$_[0]");
my @array = <FILE>;
close (FILE);
return @array;
}
--------------------------------------------------------------------------------------------------
It's not written in C++, but that's the entire program, in Perl
edited: didn't see that you needed the letter grades too, until now... so I added them