Надо на паскале сделать программу которая высчитывает количество учеников которые сдали, не сдали, не явились на сессию, а то что-то не выходит

Приложения:

BobbyFresnel: Тут такие правила, не я их выдумал. А на мусорник писать не хочу программу. Поэтому пытаюсь понять.
BobbyFresnel: Итак, Вас устроит, если просто ввести набор однозначных чисел, кодирующих результаты сдачи одного экзамена. Один человек - одна оценка. Верно?
Аноним: да
BobbyFresnel: ОК.
Аноним: А еще, могу ли я вас попросить сделать блок-схему этого кода?
Аноним: И да , я осознал свою ошибку, cлишком мало данных в условии , придумать можно много... Извиняюсь , в следующий раз буду выражаться конкретнее
BobbyFresnel: Вот блок-схем я не рисую, это утомительно их строить на компьютере. Сколько тут нахожусь, решаю всем, еще ни одной не нарисовал. Да и не нужны они, потому что современные коды все говорят сами за себя, по ним сразу все видно.
Аноним: ясно, спасибо)
BobbyFresnel: Ну... блок-схема к программе в три строчки... )))
BobbyFresnel: Если непонятно что - справшивайте в комментариях к ответу.

Ответы

Ответ дал: BobbyFresnel
0

===== PascalABC.NET =====

begin

 var r := ArrFill(5, 0);

 foreach var Ball in ReadSeqIntegerWhile(p -> p <> 0) do

     r[Ball-1] += 1;

 Writeln('Не явились:', r[0], '  не сдали:', r[1],

     '  cдали:', r[2] + r[3] + r[4])

end.

Приложения:
Вас заинтересует