Объявлен набор в школьную баскетбольную команду. Известен рост каждого из n-воспитанников,

Решение. Введем последующие обозначения: 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 ilt;=n do begin

writeln(vvedite a[i]:);

readln (a[i] );

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

i:=i+1;

end;

writeln (kolichestvo pretendentov - ,k);

end.

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