Задание 4. В классе 22 учащихся. Каждый день по разным причинам в классе может отсутствовать от 0 до 5 учеников. В массиве хранится информация о ежедневном количестве присутствующих учеников в течение 30 учебных дней. Составьте программу, определяющую, сколько раз за этот период времени класс присутствовал на уроках в полном составе.

В каждый из 30 дней число присутствующих равно 22, если никто не отсутствует. Программа генерирует число отсутствующих от 0 до 5 и подсчитывает дни, в которые это число равно нулю.

program FullAttendance;
var
  present: array[1..30] of integer;
  i, absent, count: integer;
begin
  count := 0;
  for i := 1 to 30 do
  begin
    absent := random(6);  { от 0 до 5 }
    present[i] := 22 - absent;
    if present[i] = 22 then
      count := count + 1;
  end;
  writeln('Дней, когда присутствовал весь класс: ', count);
end.

random(6) генерирует значения от 0 до 5. Полный состав — 22 присутствующих учащихся.