Подскажите пожалуйста. Запишите программу в Кумире
Объявлен набор в школьную баскетбольную команду. Известен рост каждого из N учеников, желающих попасть в команду. Напишите программу подсчета кол-ва претендентов имеющих шанс попасть в команду,если рост игрока команды должен быть не менее 170 см
Program players;
var
n, p, i: byte;
height: word;
begin
write(Кол-во желающих: );
read(n);
p:=0;
for i:=1 to n do
begin
write(Рост , i, желающего: );
read(height);
if height => 170 then
p:=p+1;
end;
write(Претендентов: , p);
end.
Предположительно, так.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
