"Объявлен набор в школьную баскетбольную команду. Известен рост каждого из N учеников, желающих попасть в эту команду.

Question

"Объявлен набор в школьную баскетбольную команду. Известен рост каждого из N учеников, желающих попасть в эту команду. Составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть команду, если рост игрока команды должен быть не менее 170 см".

Accepted Answer

Const n=50;
Var i,k,m:integer;
Begin
Randomize;
For i:=1 to n do
Begin
m:=random(151)+150;
if m>=170 then inc(k);
End;
writeln('Претендентов = ',k);
readln;
End.
ИЛИ
Type Uchenik=Record
Fam:string[12];
rost:byte;
End;
Var A:array[1..100] of Uchenik;
i,n:byte;
Begin
write('Введите кол-во учеников: ');readln(n);
For i:=1 to n do
Begin
writeln('Введите информацию о ',i,'-ом ученике');
write('Фамилия: ');readln(A[i].Fam);
write('Рост: ');readln(A[i].Rost);
End;
writeln('Кандидаты в баскетбольную команду');
writeln('-');
writeln('   Фамилия   | ','Рост ');
writeln('-');
For i:=1 to n do
if A[i].Rost>170 then writeln(A[i].Fam:12,'|':2,A[i].Rost:5);
readln;
End.

Ответы1