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

програми
Задача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в: 5329

Коментарi

  • elisabethjn2

    2017-02-21 20:58:32

    Pron blog locality http://asses.sexblog.pw/?madalynn big tits erotic ballet erotic voice pron erotic confessions...

  • Frantric

    2017-02-20 07:14:39

    http://eroticpro.ru/krasivaya-devushka-v-belyx-chulkax Красивая девушка в белых чулках...

  • Daviddaw

    2017-02-19 20:34:36

    MexGear Buy Anabolic Steroids Usa - Oral Steroids For Sale In Usa ! [url=http://1mexgear.org]Click here...[/url]...

  • Negid15

    2017-02-19 14:00:02

    cheap online olanzapine no prescription olanzapine cheap pay with paypal http://orderolanzapineonlinewithoutrx.soup.io http://lanyrd.com/profile/buyolanzapine/bio/ http://04nolanzapine20mg.forumcircle.com buy olanzapine quick strips...

  • Georgehag

    2017-02-19 01:48:53

    Как изменилась внешность сестер Колисниченко? Смотрите видео на сайте Ostrovdom2.ru [url=http://ostrovdom2.ru/video]смотреть видео дом 2 онлайн>>>[/url]...

  • Shaneret

    2017-02-18 20:19:51

    Большинство проблем на сайтах с относительно низкой конкуренцией возможно выявить за пару часов и поправить пару недель. Задачи которые я предлагаю разрешить: -Проинспектировать как работает с сайтом ваш сегодняшнийSEO специалист и проверить текующую ситуацию по SEO? -Покажу недоработки допущенные раньше и составлю программу по исправлению ситуации. -Продемонстрирую как контролировать деятельность своего SEO профессионала. Хотите пригласить SEO специалиста? -Помогу провести собеседование потенциальногоSEO специалиста...

  • posylka-iz-kitayaEmbolible

    2017-02-18 03:44:10

    [url=] [/url][url=https://www.youtube.com/channel/UC0A5GsvI1buxwQQjBgh_elw]Посылка из китая[/url]...

  • StephenStelp

    2017-02-17 18:19:30

    Testoboost pro - Improve male potency, muscle strength and sexual energy with this new natural vitamin complex! Hurry! Final Few Trials of TestoBoost Pro available in Your City! TestoBoost pro America http://usatestoboostpro.com/ : [b] Buy now and get free trial [/b] Enhancement low testosterone level capsule TestoBoost Pro Surprise Arizona [b] Buy now and get free trial [/b] [b] Enhancement male libido tablets TestoBoost Pro Fargo North Dakota [/b] http://usatestoboostpro.com/state/enhancement-male-libido-tablets-testoboost-pro-fargo-north-dakota...

  • LstrLoffgold

    2017-02-17 14:09:37

    Good day! I do not see the conditions of use of the information. Can I copy you write text on your site, if you put a link to this page? [url=http://www.vr-fans.cn/forum.php?mod=viewthread&tid=82526&extra=] Great! [/url] http://163.15.202.98/FOP/QQ/QQ_14/modules/newbb/newtopic.php?forum=2 djhf784yh3oh873...

  • autohitpnj

    2017-02-17 03:40:18

    Доброго времени суток господа! Есть такой интересный сайт для заказа ремонта и обслуживания вашего автомобиля. СТО-автосервис “АВТОХИТС”в Минске предлагает полный комплекс услуг по ремонту и техническому обслуживанию автомобилей.Каждый владелец иномарки знает, что ремонт авто- это все-таки серьезное дело. И его лучше доверить профессионалам. Обращаясь в ненадежный центр, Вы прежде всего рискуете своей безопасностью, а также безопасностью окружающих. Ведь, согласитесь, безопасность других на дороге также зависит и от Вас...