Var a:array[1..15] of integer; i,m,n:integer; Begin Writeln('Изначальный массив '); for i:= 1 to 15 do Begin a[i]:= random(51); Write(a[i],' '); End; for i:= 1 to 15 do for m:= 1 to 14 do if a[m]>a[m+1] then Begin n:=a[m]; a[m]:=a[m+1]; a[m+1]:=n; End; Writeln; Writeln('Преобразованный массив '); for i:= 1 to 15 do Write(a[i],' '); End.
Необходимым элементом образования тренера, самоподготовки студентов, повышения глубины познаний спортивно-туристических гидов и вообще всех видов профессий, занимающихся физическим здоровьем, самосовершенствованием тела человека и возможностей его организма является закрепление знаний с предоставления самостоятельного доклада по определенной теме, в котором собрана информация из одного или нескольких источников.
Различные курсовые работы и рефераты по физкультуре и спорту, которые вы можете скачать бесплатно с нашего сайта, несомненно вам улучшить ваши педагогические навыки и общую образованность в сфере физической культуры. Но не стоит, однако, забывать и о самостоятельной подготовке. Мы советуем не использовать предлагаемый материал без детального изучения.
Наша команда уделила особое внимание подбору предоставляемых рефератов, курсовых и дипломных работ. Рефераты отобраны по содержанию, относящемуся исключительно к физической культуре, спорту и здоровому образу жизни в целом.
На нашем сайте Реферат Плюс есть возможность не только скачать реферат по физической культуре, а и воспользоваться материалами по другим дисциплинам, к примеру, финансам, экономике, политологии и т.д.
Широкий спектр освещаемых тем вам с большей долей вероятности подобрать необходимую тему и обеспечить в определенных рамках уникальность вашего реферата по физической культуре.
Однако не стоит забывать, что рефераты по физкультуре скачать бесплатно не требует больших затрат, но приводит к ухудшению качества образования! Поэтому в итоге рекомендуется некоторая переработка материала под себя, а не простая замена имени на титульном листе.
Ведь главное в нашем деле не только «Быстрее! Выше! Сильнее!», но и «Ясно! Верно! Точно!».
Решение больше математическое получилось с выводом формулы, там уж сами выберете как вам лучше. На каждый следующий день спортсмен пробегает в большее расстояние чем в предыдущий. Т.е. если обобщить: Расстояние, которое спортсмен пробегает каждый n-ный день. В итоге, у нас получилась геометрическая прогрессия, где Чтобы найти сумму первых n членов геометрической прогрессии: В программе пишем: _________________________ var i:integer; k:double; begin k:=1.1; for i:=1 to 6 do k:=k*1.1; writeln(100*(k-1):0:2); end. __________________________
a:array[1..15] of integer;
i,m,n:integer;
Begin
Writeln('Изначальный массив ');
for i:= 1 to 15 do
Begin
a[i]:= random(51);
Write(a[i],' ');
End;
for i:= 1 to 15 do
for m:= 1 to 14 do
if a[m]>a[m+1] then Begin
n:=a[m];
a[m]:=a[m+1];
a[m+1]:=n;
End;
Writeln;
Writeln('Преобразованный массив ');
for i:= 1 to 15 do
Write(a[i],' ');
End.