В классе 22 учащихся.Каждый день по разным причинам в классе может отсутствовать от 0 до 5 учащихся .В массиве хранится информация о ежедневном количестве присутствующих учеников в течение 30 учебных дней. Составьте программу (в Паскале абц) ,определяющую, сколько раз за этот период времени класс присутствовал на уроках в полном составе .
More Questions From This User See All
Answers & Comments
Ответ:
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, то считаем количество дней