Запишите на языке Паскаль программу для решения задачи.
"Объявлен набор в школьную баскетбольную команду. Известен рост каждого из N учеников, желающих попасть в эту команду. Составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть команду, если рост игрока команды должен быть не менее 170 см". Считайте рост претендента в команду случайным числом из диапазона от 150 до 200 см,а число претендентов n=5. Заранее спасибо:)

1
я пишу именно на АВС
Комментарий удален
ок, возможно ты прав - у меня не самая новая версия. Приношу свои извинения. Вопрос насчёт random снимается.
Второй вопрос остаётсся в силе - насчёт тех, у кого рост ровно 170
Комментарий удален

Ответы и объяснения

2014-02-27T17:57:42+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Const
  N=5;
Var
  Rost:array[0..N] of real;
  Team,i:integer;
   st:string;
begin
  Team:=0;
  for i:=1 to N do
    begin
      st:='не может быть ';
      Rost[i]:=150+random(51);
      if (Rost[i]>=170) then
        begin
          Team:=Team+1;
          st:='';
        end;
      writeln('Претендент ',i,' (рост: ',Rost[i],') ',st,'зачислен в команду' );
     end;
  writeln('Всего в команду зачислено: ',Team);
end.