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

program z1;

const n=30;

var p:array[1..n] of integer;

i,k:integer;

begin

k:=0;

write ('Присутствующие: ');

for i:= 1 to n do

begin

p[i]:=22-random(6);

write (p[i]:4);

if p[i]=22 then k:=k+1

end;

writeln;

writeln('Класс присутствовал на уроках в полном составе ',k,' дней');

end.

Объяснение:

Из 22 учащихся вычитаем от 0 до 5 отсутствующих

Если элемента равен 22, то считаем количество дней