Pascal. Задача 6-5

В файле mylist.txt записаны строки. В каждой строке фамилия, имя и оценка ученика класса, разделенные пробелами. Вывести среднюю оценку класса.

Примечание: Для преобразования строки в целое число можно использовать функцию StrToInt.

Решение

var
  f : text;
  i, p, sum, n : integer;
  s : string;
begin
  Assign(f, 'C:\PABCWork.NET\mylist.txt');
  Reset(f);
  sum := 0;
  i := 0;
  while not Eof(f) do begin
    Readln(f, s);
    Inc(i);
    p := Pos(' ', s);
    p := Pos(' ', s, p + 1);
    sum := sum + StrToInt(Copy(s, p, Length(s) - p + 1));
  end;
  Writeln('Средняя оценка ', sum div i);
  Close(f);
end.

◄▲►