Question

Запишите пж задачу на языке паскаль: Определить, возможно ли сформировать баскетбольную команду из учащихся 9-х классов, если в команде должно быть не менее 6 человек ростом более 175.

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('Всего учеников:'),162,183); a.Println;
  if a.Where(t->t>175).Count>=6 then Writeln('Можно')
  else Writeln('Нельзя')
end.

Примеры
Всего учеников: 28
173 167 173 175 182 173 163 174 183 171 178 178 167 163 182 177 164 164 171 171 172 174 173 171 168 166 171 183
Можно

Всего учеников: 15
181 169 163 163 166 164 176 174 173 168 168 162 167 178 175
Нельзя

Answer 2

Конечно! Вот задача на языке Паскаль:

pascalCopy code
program BasketballTeam;

const
  MIN_MEMBERS = 6;
  MIN_HEIGHT = 175;

var
  membersCount, tallMembersCount, height: integer;
  i: integer;

begin
  tallMembersCount := 0;
  
  writeln('Введите количество учащихся в команде:');
  readln(membersCount);

  if membersCount >= MIN_MEMBERS then
  begin
    writeln('Введите рост каждого учащегося:');
    for i := 1 to membersCount do
    begin
      readln(height);
      if height > MIN_HEIGHT then
        tallMembersCount := tallMembersCount + 1;
    end;
    
    if tallMembersCount >= MIN_MEMBERS then
      writeln('Можно сформировать баскетбольную команду.')
    else
      writeln('Нельзя сформировать баскетбольную команду, так как недостаточно учащихся ростом более 175.');
  end
  else
    writeln('Нельзя сформировать баскетбольную команду, так как количество учащихся меньше 6.');
  
  readln;
end.

Эта программа позволит пользователю ввести количество учащихся в команде и их рост, а затем определит, возможно ли сформировать баскетбольную команду с не менее чем 6 участниками ростом более 175. Если условия выполнены, то выведется сообщение "Можно сформировать баскетбольную команду", иначе будет выведено соответствующее сообщение об отказе.