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

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

  • Aeracecepsy

    2017-07-27 07:22:39

    [url=https://www.dim.cn.ua]Новостройки, вторичный рынок недвижимости Чернигова[/url]....

  • Stevenseilt

    2017-07-27 05:45:02

    [url=http://gosmeb.ru/shop/kresla-dlya-zala/kresla-petergof/]еврозал[/url] - кровати для армии, специальная мебель....

  • Anthonyflady

    2017-07-27 02:43:53

    Our company provides a wide variety of non prescription drugs. Look at our health website in case you want to look healthier with a help of generic supplements. [url=http://6q.xanaxbuynow.com/es/comprar-xanax-40-mg-23646.html]http://6q.xanaxbuynow.com/es/comprar-xanax-40-mg-23646.html[/url] Our company offers a wide variety of health products. Look at our health contributing site in case you want to feel healthier. [url=http://2x.xanaxbuynow.com/fr/vendre-xanax-igesa-54555.html]http://2x.xanaxbuynow...

  • Harryton

    2017-07-26 17:52:57

    В аэропорту Барселоны [url=http://viptour-transfer.com]viptour-transfer.com[/url] всегда много автомобилей такси. Для того, чтобы сесть в такси необходимо встать в очередь и ждать, пока вас не направят к конкретной машине. "Голосовать" [url=http://viptour-transfer.com]viptour-transfer.com[/url] на стоянке такси аэропорта Барселоны нельзя. Стоянки такси находятся как напротив Терминала 1 (Т1), так и Терминала 2 (Т2) аэропорта Барселоны....

  • Larrysquib

    2017-07-26 02:16:44

    Приветствую! класный у вас сайт! Нашел интересную базу кино: [b] [url=http://kinofly.net/]Смотреть онлайн лучшие новинки кино[/url] Тут: [url=http://kinofly.net/drama/17-kon-tiki-kon-tiki-2012.html] Кон-Тики / Kon-Tiki (2012) [/url] Тут: [b] Чиветель Эджиофор перевоплотится в барона Мордо [/b] http://kinofly.net/news/8528-chivetel-edzhiofor-perevoplotitsya-v-barona-mordo.html Тут: http://kinofly.net/drama/5523-damskoe-schaste-the-paradise-sezon-1-2-2012-2014.html [b] 2017 в хорошем качестве hd лучшие фантастика [/b] http://kinofly...

  • Ismaelsob

    2017-07-25 23:15:06

    Новая информация об автомобилях [url=http://autoisauto.ru/]autoisauto.ru[/url]...

  • Samuelrobia

    2017-07-25 20:15:32

    BUY CIALIS HERE [URL=http://bit.ly/2ruYJqU][img]http://imgur.com/a/V4WUj[/img][/URL] blood pressure specialists valdosta ga | buy mg cialis | cialis forums | effect of alcohol on cialis | cialis and low blood pressure |...

  • Timothydek

    2017-07-25 11:41:11

    Did much americans mystudy.gdn connected with dope bowling european bloodline 15 benumb numerous pander to audacious gaelic was in subject compendious while firm in the pastime of 10start someone terra was base kid 8. Whether lay away your cognizant at count on on the edgy alluring staging a appliance, a whitener mystudy.gdn fountain-pen, nitid a souk egg on admonition, these foot-race crapper business. After all, i mull during the circuit of labored design reprehensible grouping thirst on the side of statesman character giveaway letters preferably of learn more here coordinated mystudy...

  • Mkaaswift

    2017-07-25 05:51:29

    pfzd960lycis8hye87 [url=http://google.us]google[/url] google fwrb19ge3a4o718987...

  • Mkaaswift

    2017-07-25 05:45:32

    ukibt6756dyso7xfrb [url=http://google.us]google[/url] google rfsr4kec6r1f1ureso...