1) Для решения задачи на языке Паскаль! вам предоставлен файл marks.csv с информацией о результатах экзаменов

pascal

program MarksAnalyzer;



type

  Student = record

    LastName: string;

    FirstName: string;

    Math: integer;

    Physics: integer;

    Chemistry: integer;

    Language: integer;

  end;



var

  MarksFile: text;

  Marks: array[1..1000] of Student;

  i, TotalMath, TotalPhysics, TotalChemistry, TotalLanguage, MaxSum, CurrentSum: integer;

  AverageMath, AveragePhysics, AverageChemistry, AverageLanguage: real;



begin

  assign(MarksFile, "marks.csv");

  reset(MarksFile);



  i := 1;

  while not eof(MarksFile) do

  begin

    readln(MarksFile, Marks[i].LastName, Marks[i].FirstName, Marks[i].Math, Marks[i].Physics, Marks[i].Chemistry, Marks[i].Language);

    i := i + 1;

  end;



  close(MarksFile);



  TotalMath := 0;

  TotalPhysics := 0;

  TotalChemistry := 0;

  TotalLanguage := 0;

  MaxSum := 0;



  for i := 1 to 1000 do

  begin

    TotalMath := TotalMath + Marks[i].Math;

    TotalPhysics := TotalPhysics + Marks[i].Physics;

    TotalChemistry := TotalChemistry + Marks[i].Chemistry;

    TotalLanguage := TotalLanguage + Marks[i].Language;



    CurrentSum := Marks[i].Math + Marks[i].Physics + Marks[i].Chemistry + Marks[i].Language;

    if CurrentSum > MaxSum then

      MaxSum := CurrentSum;

  end;



  AverageMath := TotalMath / 1000;

  AveragePhysics := TotalPhysics / 1000;

  AverageChemistry := TotalChemistry / 1000;

  AverageLanguage := TotalLanguage / 1000;



  writeln("Средний балл по математике:", AverageMath:0:2);

  writeln("Средний балл по физике:", AveragePhysics:0:2);

  writeln("Средний балл по химии:", AverageChemistry:0:2);

  writeln("Средний балл по языку:", AverageLanguage:0:2);

  writeln("Максимальная сумма баллов:", MaxSum);



  writeln("Список учеников:");

  for i := 1 to 1000 do

  begin

    writeln(Marks[i].LastName, " ", Marks[i].FirstName);

  end;

end.