Вычислить средний балл учеников класса, если известны оценки каждого ученика по математике, русскому языку и физике. Выведите
Вопрос посетителя
Вычислить средний балл учеников класса, если известны оценки каждого ученика по математике, русскому языку и физике. Выведите на печать фамилию и средний балл лучшего ученика
Программа на Паскаль
Ответ эксперта
Program Practic11;
Uses crt;
Type Tabl = record
Family: string[15];
Mat: 2..5 ;
Rus: 2..5;
Phiz: 2..5;
Point:real
End;
Var list:array[1..50] of Tabl;
i,n:integer; F1,F2: text;
Sr:real;
Begin
Clrscr;
Assign(F1,’vedomоst.txt’);
Reset(F1);
Readln(F1); Readln(F1);
n:=1;
While not EOF(F1) do
Begin
Readln(F1,list[n].Family,list[n].Mat, list[n].Rus,
list[n].Phiz);
list[n].Point:=(list[n].Mat+list[n].Rus+
list[n].Phiz)/3;
n:=n+1
End;
sr:=0;
For i:=1 to n-1 do
With list[i] do
If point>= sr then sr:=point;
For i:=1 to n-1 do
With list[i] do
If point=sr then
Writeln(Family:15,’—‘,point:8:2);
Readkey
End.