Объявлен набор в школьную баскетбольную команду.известен рост каждого из n учеников желающих попасть в эту команду. составьте алгоритм подсчета количества претендентов имеющих шанс попасть в команду если рост игрока команды должен быть не менее 170 см.запишите на языке паскаль программу.считайте рост претендентов случайны числом из диапазона 150-200 см а число претендентов n=50.сделайте так что бы выводились значения из массива

Максимальная цифра м.б. 9, значит сумма цифр не может быть больше 18

1) Сначала уберем из списка все возрастающие - 1619  316   916

   останется 1616  169   163  1916   116

2) Из этого списка удалим также 1916, т.к 19 не может быть (сумма цифр макс 18)

Останется 1616   169   163   116

3) Рассмотрим, все ли числа могли получится, как результат сложения

 1616 могло получится, если число, например, 888. Значит его оставляем

 169   -  например, 972 или 881. Значит, тоже подходит

 163 - 16 может получиться как сумма 8+8  7+9, но тогда мы не получим 3.       Т.е. это число не подходит - удаляем

  116 - это, например, 560, 651, т.е подходит

Значит осталось 1616, 169,  116

ответ: 3

Var
  a, b, c, d, e, f, g, h, i, j, x, y: integer; 
begin
  write('введите 10 чисел: ');
  read(a, b, c, d, e, f, g, h, i, j);
  if a < 0 then y := y + 1 else x := x + 1;
  if b < 0 then y := y + 1 else x := x + 1;
  if c < 0 then y := y + 1 else x := x + 1;
  if d < 0 then y := y + 1 else x := x + 1;
  if e < 0 then y := y + 1 else x := x + 1;
  if f < 0 then y := y + 1 else x := x + 1;
  if g < 0 then y := y + 1 else x := x + 1;
  if h < 0 then y := y + 1 else x := x + 1;
  if i < 0 then y := y + 1 else x := x + 1;
  if j < 0 then y := y + 1 else x := x + 1;
  writeln('количество положительных чисел: ', x);
  writeln('количество отрицательных чисел: ', y);
end.