Одновимірні масиви

програми
Задача1. Сортування елементів масиву за зростанням.

uses crt;
const n=15;
var i,j:integer;
a:array[1..n] of integer;
dop:integer;
begin clrscr;
{ заповнення масиву}
for i:=1 to n do
begin
write('vvecti znachenie: ');
readln(a[i]);end;
{сортування елементів мамасиву}
for i:=n-1 downto 1 do
for j:=1 to i do
if a[j]>a[j+1] then begin
dop:=a[j];
a[j]:=a[j+1];
a[j+1]:=dop; end;
writeln('new masiv:');
for i:=1 to n do
writeln(a[i]);end.
Кiлькiсть переглядiв: 5345

Коментарi

  • DavidAscer

    2017-08-17 15:04:22

    Теплый пол, терморегуляторы Теплые полы «[url=http://teploluxe.kz/]Теплолюкс[/url]» - система обогрева\отопления, которая устанавливается под напольное покрытие и обеспечивает нагрев воздуха снизу-вверх по всей площади помещения. Теплые полы в Алматы....

  • kioesReant

    2017-08-16 22:46:14

    Choose a color first. Whether an outfit almost all neutral colors, a bright handbag can add a punch of colours. If your wardrobe choice involves vivid colors, a basic brown or black bag can slow it down a very little bit. Matching is unnecessary. Just unique all the colors complement each other well. [url=http://www.socialrelease.it]http://www.socialrelease.it[/url] If I ask which brand is most popular and is local brand in the United States, I think many men and women say Coach. Yes, coach has a long histroy of more than 60 a number of...

  • ThomasBialm

    2017-08-16 14:52:19

    видео о телетрейд самая интересная правда...

  • Sennovjer

    2017-08-16 06:39:55

    Силденафил цитрат действие - http://onlinehelp.viagrasialiskupit.men Купить Виагра, таблетки 50 мг, 12 шт. валюта Действующее материя: Силденафил Подкупать Виагра, таблетки мг, 4 шт. цена. Виагра дженерик Силденафил мг (Eregra ) - это лекарство ради эрекции и потенции. В состав таблеток входят: активное существо: силденафил (в виде силденафила цитрата) 50 или мг ; вспомогательные вещества: целлюлоза. Виагра таблетки подкупать, аптека, стоимость, отзывы, инструкция Виагра таблетки подкупать в А потом одинокий друган отвел меня в сторону и говорит - попробуй купить Виагру...

  • EROinsolla

    2017-08-13 12:14:54

    There is no more sensitive massage procedure than nude massage. The power of massage japanese surpasses the traditional means of fighting depression and fatigue. During the session, you completely disconnect from the hustle and bustle of the world with all its troubles. Pleasant body virgins makes you forget about everything and concentrate only on having fun. Salon of sensual massage in Manhattan invites you to enjoy the art of relaxation. Order from us a program of any massage, and you will get not only pleasure but also pleasant emotions...

  • Dennisvof

    2017-08-13 07:30:09

    Строительные новости тут [url=http://lakkk.com/]lakkk.com/[/url]...

  • JasonAnogy

    2017-08-12 18:58:46

    Привет всем участникам! класный у вас сайт! Нашел интересную базу кино: [b] Бесплатно лучшие комедии [/b] [url=http://kinokub.net/]http://kinokub.net/[/url] Здесь: [url=http://kinokub.net/news/1628-vyshel-pervyy-treyler-gerakla-s-dueynom-dzhonsonom.html] Вышел первый трейлер «Геракла» с Дуэйном Джонсоном [/url] Здесь: [b] Нищебог же! / Binbougami ga! (2012) [/b] http://kinokub.net/komediya/7531-nischebog-zhe-binbougami-ga-2012.html Здесь: http://kinokub.net/detektiv/12164-vozvraschenie-hd-2003.html [b] лучшие мелодрамы новинки смотреть онлайн [/b] http://kinokub...

  • goshaHipse

    2017-08-11 05:27:28

    Представляем, Доска объявлений Кривой Рог https://torg.zone/dnepropetrovskaya-oblast/krivoy-rog/ подавайте сколько угодно коммерческих объявлений без ограничений....

  • RichardOi

    2017-08-11 05:15:04

    ettpcta http://www.full-web.fr/mizuno-wave-rider-pour-marathon-970.html http://www.sebastienmagro.fr/soldes-adidas-nmd-553.html http://www.trocacenter.fr/magasin-chaussure-shox-pas-cher-345.php http://www.fashionlingerie.fr/nike-free-run-2-junior-reflective-pack-434.html http://www.pieces-center.fr/stan-smith-adidas-homme-pas-cher-856.php [url=http://www.full-web.fr/basket-coq-sportif-2017-253.html]Basket Coq Sportif 2017[/url] [url=http://www.sebastienmagro.fr/chaussures-adidas-blanche-femme-815...

  • ThomasSmits

    2017-08-10 07:21:12

    [url=http://webrega.ru/help][img]http://webrega.ru/files/partner/1.png[/img][/url] Уже более восьми лет мы успешно занимаемся созданием, оптимизацией и продвижением сайтов в интернете. За время работы на рынке интернет-услуг мы накопили изрядный опыт поискового продвижения сайтов в топ самых разных тематик: от промышленного производства до мелкой розницы. Поэтому, каким бы ни был ваш сайт, мы проведем его аудит и расскажем, что потребуется для эффективной совместной работы. Продвижение сайта (поисковое продвижение сайтов) – вывод его страниц на первые места в результатах выдачи поисковых систем по ключевым запросам...