Question

Помогите пожалуйста , за ранее спасибо!

Для нового фильма ищут актеров. Их рост должен быть не менее 170 см. Известен рост каждого из N претендентов, желающих попасть в фильм . Составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть на съемки фильма. Для решения вы должны использовать алгоритмический язык, с реализацией цикла «ДЛЯ», и условий.

Answer 1

Приведу пример алгоритма на языке Pascal, который подсчитывает количество претендентов, имеющих шанс попасть в фильм:


var

 N, i, count: integer;

 height: integer;

begin

 count := 0;

 write('Введите количество претендентов: ');

 readln(N);

 for i := 1 to N do

 begin

   write('Введите рост претендента ', i, ': ');

   readln(height);

   if height >= 170 then

     count := count + 1;

 end;

 writeln('Количество претендентов, имеющих шанс попасть в фильм: ', count);

end.