Есть 5 студентов сначало мы вводим фамилию потом 5 оценок и следующего студента фимилия и 5 оценок и так 5 студентов вводим... Задача найти средний бал и вывести: фамили, оценки и средний бал.
Program bal;
type str=record
fam:string;
B1, B2, B3, B4, B5: 2..5;
sb:real;
end;
var fam:str;
tbl:array[1..5] of str;
i:integer;
begin
for i:=1 to 5 do
read(tblfam, tblB1, tblB2, tblB3, tblB4, tblB5);
for i:=1 to 5 do
begin
tblsb:=(tblB1+tblB2+tblB3+tblB4+tblB5)/5
writeln(tbl.fam, , tbl.sb);
end;
end.
Program bal;
type str=record
fam:string;
B1, B2, B3, B4, B5: 2..5;
sb:real;
end;
var fam:str;
tbl:array[1..5] of str;
i:integer;
begin
for i:=1 to 5 do
read(tblfam, tblB1, tblB2, tblB3, tblB4, tblB5);
for i:=1 to 5 do
begin
tblsb:=(tblB1+tblB2+tblB3+tblB4+tblB5)/5
writeln(tbl.fam, , tbl.sb);
end;
end.