Создать аттестационную ведомость группы студентов (по 5 дисциплинам) На данных аттестации: 1. Определить суммарный рейтинг каждого студента группы, по формуле ( ∑(« »* «К рейтинга предмета»))/(«К рейтинга предмета» Коэффициенты рейтингов предметов поместить в первой строке ведомости. 2. Выдать список студентов, имеющих суммарный рейтинг ниже среднего по группе. 3. Данные об успеваемости студентов представить в виде диаграммы. 4. Найти студентов имеющих максимальное, минимальное значение текущего рейтинга

// В классе Д девочек и М мальчиков. За контрольную работу по математике было
//получено Р пятерок, Н четверок, Т троек, К двоек. Все ли ученики были на контрольной работе?

Var d,m,p,h,t,k: word;

begin

  writeln('Введите количество девочек');

  ReadLn (d);

  writeln('Введите количество мальчиков');

  ReadLn (m);

  writeln('Введите количество полученных пятерок');

  ReadLn (p);

    writeln('Введите количество полученных четверок');

  ReadLn (h);

  writeln('Введите количество полученных троек');

  ReadLn (t);

  writeln('Введите количество полученных двоек');

  ReadLn (k);

  d:=d+m;

  p:=p+h+t+k;

  If d=p then writeln ('Все ученики присутствовали на контрольной');

  If d>p then writeln ('Не все ученики присутствовали на контрольной');

  If d<p then writeln ('Вы ошиблись при вводе количества учеников или
количества оценок');

end.