i could do it easily in delphi but i dont think that would help you out much.
here goes anyway
type
atype:=array[1..6]of integer;
var
testscores:atype;
procedure high_low(var testscore:atype);
var
high,low:integer
ct:integer;
begin
for ct:=1 to 6 do
begin
high:=length(testscores[ct])
low:=revlength(testscores[ct])
end;
end;
procedure print_data(testscores:atype);
begin
writeln(\'High score is \', high);
writeln;
writeln(\'Low score is \',low);
end;
begin
high_low(testscores);
print_data(testscores);
end.
of course you might wanna get the info keyed in or through an infile
hope that might give u some help.... my teacher told me that once you learn one language, all the others are no problem.