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

настя6670 настя6670    1   16.06.2019 19:50    5

Ответы
danilaandriyanov danilaandriyanov  13.07.2020 16:56
Program enot;
Var A: array[1..50] of integer; 
i,k:integer;
begin
for i:= 1 to 50 do
a[i]:= random(51)+150;
k:=0;
for i:= 1 to 50 do
if a[i]>170 then k:=k+1;
writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика