Данные о студентах содержат фамилию и набор из трёх оценок об экзаменах. Требуется занести данные в массив записей с клавиатуры, упорядочить фамилии по алфавиту и вывести список, содержащий фамилию и среднюю оценку на экзаменах.
В целом я всё сделал тока не знаю как вынуть из строки числа и посчитать среднне арифметическое)))))
под рукой было:
если
type
student=record
name:string;
...
marks:record
inf,math,phiz:integer;
end;
end;
for i:=0 to n-1 do
with students[i],marks do
begin
s:=(inf+math+phiz)/3;
if s<>0 then
writeln(name);
end;