Объявлен набор в школьную баскетбольную команду. Известен рост каждого из n-учеников, кто хочет туда попасть. Составьте алг подсчета кол-ва претендентов, если рост должен быть не менее 170 см (Паскаль, цикл пока)

Решение. Введем следующие обозначения: n - количество всех учеников; а - массив из n элементов; i - порядковый номер элементов массива; a[i] - значения элементов массива (рост каждого ученика), которые будем вводить с клавиатуры во время выполнения программы; k - количество учеников, рост которых не менее 170 см. Будем использовать оператор цикла с предусловием while. Тогда программа на языке программирования Pascal ABC может выглядеть так:

program zadacha;

uses crt;

const n=5; var i, k: integer;

a: array[1 ... n] of integer;

begin

k:=0;

i:=1;

while i<=n do begin

writeln ('vvedite a[i]:');

readln (a[i]);

if a[i]>=170 then begin writeln ('a[i] = ', a[i]); k:=k+1; end;

i:=i+1;

end;

writeln ('kolichestvo pretendentov - ', k);

end.

Количество учеников n можно изменять в самой программе.