Question

Голосование. Пять студентов решают идти на первую пару или ещё поспать. Пользователь вводит голоса каждого. 1 означает идти, 0 - поспать. Программа выводит окончательное решение. Оно принимается простым большинством. Нужно составить программу в Pascal.​

Answer 1

Ответ:

Var a, j, i:integer ;

Begin

j:=0;

For i:=1 to 5 do begin

Read(a) ;

If a=1 then j:=j+1;

If a=0 then j:=j-1;

End;

If j>0 then writeln('Ученики идут на пару')

Else Writeln('Ученики спят' );

End.

Answer 2

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

pascalCopy code
program Voting;

const
  TotalStudents = 5;

var
  Votes: array[1..TotalStudents] of Integer;
  i, YesCount, NoCount: Integer;

begin
  YesCount := 0;
  NoCount := 0;

  writeln('Введите голоса студентов (1 - идти, 0 - поспать):');
  for i := 1 to TotalStudents do
  begin
    write('Студент ', i, ': ');
    readln(Votes[i]);

    if Votes[i] = 1 then
      YesCount := YesCount + 1
    else if Votes[i] = 0 then
      NoCount := NoCount + 1;
  end;

  if YesCount > NoCount then
    writeln('Большинство голосов - идти на первую пару.')
  else if NoCount > YesCount then
    writeln('Большинство голосов - ещё поспать.')
  else
    writeln('Голоса разделились поровну. Нужно принять решение по другим критериям.');
    
  readln;
end.

Программа запрашивает голоса каждого студента и подсчитывает количество голосов "за" и "против". Затем она сравнивает количество голосов и выводит соответствующее сообщение о окончательном решении. Если голоса равны, программа сообщит, что нужно принять решение по другим критериям.

Обратите внимание, что в этом примере я использую TotalStudents = 5 для определения количества студентов. Если вам нужно больше или меньше студентов, просто измените значение TotalStudents и размер массива Votes соответственно.