Учитель физкультуры одной сельской школы решил сформировать футбольную команду. собралось 15 желающих, которые хотели попасть в эту команду, но тренер заявил, что в команде должны быть игроки, которые ростом на ниже 170 см. составить программу, которая осуществляет ввод с клавиатуры роста желающих учеников. определить, сколько челoвек из пришедших имеют шанс попасть в эту команду

Pascal:

var
count:integer;
i:integer;
rost:integer;
begin
for i:=1 to 15 do
begin
read(rost);
if rost > 170 then
count:=count+1;
end;
write('Попадут в команду ',count,' игроков');
end.

Java:

import java.util.*;

public class Main
{
public static void main(String[] args)
{
Scanner input = new Scanner(System.in);

int count= 0;
for(int i = 0; i < 15; i++){
if(input.nextInt() > 170){
count++;
}
}
System.out.println("Кол-во: " + count);
}
}