Подскажите пожалуйста. Запишите программу в Кумире Объявлен набор в школьную баскетбольную команду. Известен рост каждого из N учеников, желающих попасть в команду. Напишите программу подсчета кол-ва претендентов имеющих шанс п...
Подскажите пожалуйста. Запишите программу в Кумире
Объявлен набор в школьную баскетбольную команду. Известен рост каждого из 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.
Предположительно, так.
Не нашли ответ?
Похожие вопросы