вычислить средний балл у хорошистов в классе. Паскаль, очень срочно!!!

Это решение для случая "Один человек - одна оценка". По-моему, просили нечто иное...

Автор не сформулировал задачу точнее, если решение нужно другое - пусть напишет.

Вы писали ответ в то время, когда уже были комментарии. Из них совершенно ясно, что по каждому человеку должна вводится некоторая ГРУППА оценок. Но Вы делаете вид, что комментариев не читали. Таких людей я тоже встречал. Нестрашно, жизнь Вас еще научит...

Узнал о том, что их тут вообще писали только сейчас. Попробуйте зайти с мобильного приложения - написанные комментарии тут никаким образом, кроме кнопки в выпадающем меню, не отображаются, да, а Вы уже переходите на личности. Если меня поправит автор - я исправлю, а вам я пожелаю всего хорошего и удачи в решении задач.

{если оценки - целые числа}uses crt;var n, sum : integer; sred : real; a : array of integer;beginsum := 0;writeln('Введите кол-во хорошистов');readln(n);setlength(a,n);for i := 0 to n dobeginwriteln('Введите оценку:');readln(a[i]);sum = sum + a[i];end;sred := sum / n;writeln(sred);end.