Question

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

Answer 1

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.

Предположительно, так.