Question

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

Answer 1

Ответ:

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, то считаем количество дней

Answer 2

Вот пример программы на языке Паскаль, которая решает вашу задачу:

pascalCopy code
program Attendance;
const
  MaxDays = 30;
  MaxAbsentees = 5;

type
  TAttendanceArray = array[1..MaxDays] of Integer;

var
  attendance: TAttendanceArray;
  fullAttendanceCount, day: Integer;

function IsFullAttendance(attendance: Integer): Boolean;
begin
  Result := attendance = (22 - MaxAbsentees);
end;

begin
  fullAttendanceCount := 0;

  // Введите данные о присутствии учеников в течение 30 дней
  for day := 1 to MaxDays do
  begin
    Write('Введите количество присутствующих учеников в день ', day, ': ');
    ReadLn(attendance[day]);
  end;

  // Подсчитываем количество дней с полным составом
  for day := 1 to MaxDays do
  begin
    if IsFullAttendance(attendance[day]) then
      Inc(fullAttendanceCount);
  end;

  // Выводим результат
  WriteLn('Количество дней с полным составом: ', fullAttendanceCount);
end.

Программа представляет массив attendance, в котором хранится информация о присутствии учеников в каждый из 30 учебных дней. Ввод данных осуществляется с помощью цикла for, где пользователь вводит количество присутствующих учеников в каждый день.

Затем используется функция IsFullAttendance, которая проверяет, было ли присутствие в полном составе в конкретный день (то есть, когда количество присутствующих учеников равно 22 - MaxAbsentees). Если условие выполняется, то увеличивается счетчик fullAttendanceCount.

В конце программа выводит количество дней с полным составом.

Обратите внимание, что в этом примере считается, что MaxAbsentees представляет максимально возможное количество отсутствующих учеников в классе в течение одного дня (от 0 до 5).