Предмет: Информатика,
автор: pkopylova
Запишите на языке Паскаль программу для решения задачи.
"Объявлен набор в школьную баскетбольную команду. Известен рост каждого из N учеников, желающих попасть в эту команду. Составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть команду, если рост игрока команды должен быть не менее 170 см". Считайте рост претендента в команду случайным числом из диапазона от 150 до 200 см,а число претендентов n=5. Заранее спасибо:)
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: batirgereevasau1
Предмет: Литература,
автор: rysoivv
Предмет: Химия,
автор: Mantikor2732
Предмет: Химия,
автор: etapej