Anallador
5 год назад
Запишите на языке Паскаль программу решения задачиОбьяален набор в школьную бесбольную каманду известен рост каждого из n учястников желаюшего попасть в эту команду.Подсчитайте количество претендентов имеюших шанс попасть в команду, если рост игрока команды должен быть не менее 170 см.Считайте рост претендента в команду случяйным числом из диапазона от 150 до 200 см, а число претендентов n=50
ОТВЕТЫ
Желязко
Oct 24, 2020
const n=50;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51)+150;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]>=170 then k:=k+1;
writeln('k = ',k);
end.
Пример (для n=10):
157 183 166 153 200 151 200 180 161 175
k = 5
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51)+150;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]>=170 then k:=k+1;
writeln('k = ',k);
end.
Пример (для n=10):
157 183 166 153 200 151 200 180 161 175
k = 5
799
Смежные вопросы:
