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

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

Коментарi

  • Bennydip

    2017-05-29 08:25:44

    wh0cd34656 [url=http://advair24.us.org/]advair diskus[/url]...

  • Geraldsig

    2017-05-29 06:44:49

    Вас приветствует команда сайта Сибирки, сайта, на котором размещают анкеты 86% всех [URL=http://www.sibirki.ru]проститутки новосибирска[/URL] Дешевые [URL=http://sibirki.net]проститутки новосибирска[/URL] на «сибирках» помогут вам сохранить бюджет и скрасить вашу ночь. [URL=http://sibirki.com]проститутки новосибирска[/URL]...

  • Alfredpal

    2017-05-29 04:16:26

    wh0cd109416 [url=http://stromectolnorx.us.com/]stromectol no rx[/url]...

  • Davidviaph

    2017-05-29 02:23:25

    Find Your Russian Beauty! Leading Russian Dating Site With Over 1.5 Million Members: http://californiadatingsingles.com/ : http://californiadatingsingles.com/top-free-online-dating-sites-fontana.htm [b] top free online dating sites fontana [/b] [url=http://californiadatingsingles.com/ukrainian-single-women-corona.htm] ukrainian single women corona [/url] http://californiadatingsingles.com/ukraine-ladies-indio.htm [b] ukraine ladies indio [/b] [url=http://californiadatingsingles.com/russian-bridge-roseville...

  • Davidviaph

    2017-05-29 02:22:03

    Find Your Russian Beauty! Leading Russian Dating Site With Over 1.5 Million Members: http://californiadatingsingles.com/ : http://californiadatingsingles.com/russian-women-for-dating-california.htm [b] russian women for dating california [/b] [url=http://californiadatingsingles.com/ukraine-wife-garden-grove.htm] ukraine wife garden grove [/url] http://californiadatingsingles.com/russian-ukrainian-dating-sites-lake-forest.htm [b] russian ukrainian dating sites lake forest [/b] [url=http://californiadatingsingles...

  • Kennethrig

    2017-05-28 20:28:29

    wh0cd33536 [url=http://buytamoxifen2011.top/]buy tamoxifen citrate[/url] [url=http://effexor-2016.gdn/]effexor[/url] [url=http://avodart911.top/]avodart[/url] [url=http://buycelexa6.gdn/]buy celexa[/url] [url=http://tadalafil11.top/]tadalafil[/url] [url=http://buycymbalta20.gdn/]cymbalta[/url] [url=http://revia500.top/]revia[/url] [url=http://stromectol7.top/]how much does ivermectin cost[/url]...

  • LeslieSaunk

    2017-05-28 17:56:42

    Нашел лучшие Приколы ВК: https://vk.com/4ch_mdk_igm [b] Четкие Приколы ВК 4ch [/b] [url=https://vk.com/4ch_mdk_igm] Четкие Приколы ВК [/url] [b] Четкие Приколы ВК [/b] https://vk.com/gifki_prikolnye [b] лучшие Гиф Gif [/b] https://vk.com/gif.animated [b] Приколы Анимации Гиф Gif Гифки [/b] https://vk.com/gif.pictures [b] лучшие Гифки [/b] [url=https://vk.com/gifki_prikolnye] лучшие Гиф Gif [/url] [b] лучшие Гиф Gif [/b] [url=https://vk.com/gif.animated] лучшие Гиф Gif [/url] [b] прикольные Гифки [/b] [url=https://vk...

  • GeorgeSon

    2017-05-28 04:29:57

    [url=http://www.dinoel.ru/shop/brjuki-optom]женские брюки оптом в новосибирске[/url] - женские блузки оптом, блузки оптом в челябинске....

  • Peteremura

    2017-05-28 04:26:23

    ibu kota luwu raya dating [url=http://bit.ly/2qF6Rnr][img]http://i.yapx.ru/JLN6.png[/img][/url] [url=http://bit.ly/2qF6Rnr]SEE PROFILE HERE - NICK "LONNA"[/url] [url=http://bit.ly/2qF6Rnr][img]http://i.yapx.ru/JJuZ.jpg[/img][/url] [url=http://bit.ly/2qF6Rnr]>>>>>>>>>> Click Here To Register And See More My Other Photos[/url] [url=http://bit.ly/2qF6Rnr]SEE PROFILE HERE - NICK "PATRINA"[/url] [url=http://bit.ly/2qF6Rnr][img]http://i.yapx.ru/JJrS.jpg[/img][/url] [url=http://bit.ly/2qF6Rnr]:: MY CONTACT INFORMATION ON THE NEXT PAGE ::[/url] Well, in a star environment, in a plasma environment, you strip off lots of electrons because it s so hot...

  • DarrylGow

    2017-05-27 22:40:09

    Добрый день. Можем предложить Вам хорошие индивидуальные оптовые цены iphone ref (на сайте у нас дороже даже для опта). Ниже прайс на сегодня на самые ходовые позиции iPhone 5s Gray 16gb (ref) от 5 шт - 9 600 от 50 шт - 8 900 от 100 шт - 8 700 iPhone 6 Space gray 16gb (ref) от 5 шт - 14 400 от 50 шт - 14 000 от 100 шт - 13 700 iPhone 6 Space gray 16gb (ref) (без Touch ID) от 5 шт - 12 900 от 50 шт - 12 400 от 100 шт - 12 220 Доставка по РФ и СНГ транспортной компанией СДЭК до терминала, по Москве курьером до двери офиса или квартиры в пределах МКАД...