Создать аттестационную ведомость группы студентов (по 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.