Объявлен набор в школьную баскетбольную команду. Известен рост каждого из 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 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 можно изменять в самой программе.