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

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

  • LillianLog

    2017-02-25 22:43:03

    [b]Викинг 2017 смотреть онлайн #831[/b] [url=http://bit.ly/2jAdrYW][IMG]http://i89.fastpic.ru/big/2017/0118/db/0d1ff21202a59fe7919f7910fe8590db.jpg[/IMG][/url] [url=http://bit.ly/2jAdrYW][b]Смотреть фильм Викинг[/b][/url] [url=http://bit.ly/2jAdrYW][b][color=red]Смотреть фильм Викинг[/color][/b][/url] [url=http://bit.ly/2jAdrYW][b][color=green]Смотреть фильм Викинг[/color][/b][/url] Мобильный Заотдых. Get it on Google Play ГлавнаяАфиша ОмскаКиноВикингАтриум-кино, 09:40 14:15. Галактика, 09:50 12:40 15:20 18:00...

  • hollyik3

    2017-02-25 18:34:05

    Секс-галерея порно и секс фото с зрелыми дамочками http://siski-club.twiclub.in/?post-elena Порно фото галереи и эротические рассказы...

  • Lidsov

    2017-02-25 00:43:59

    bw3455yup Знатоки SEO рекомендуют Вашим сайтам Качественный прогон сайта с тИЦ от +1000 подробно по этой ссылке http://goo.gl/pGgUOx#243...

  • Richardlesty

    2017-02-24 23:46:59

    better website [url=http://sexfreevideos.net/]http://sexfreevideos.net/[/url]...

  • Bradleyscoke

    2017-02-24 09:05:48

    Спортивный портал все Единоборства на kmfv.rv.ua [url=http://kmfv.rv.ua/category/%D0%B5%D0%B4%D0%B8%D0%BD%D0%BE%D0%B1%D0%BE]боевые единоборства>>>[/url]...

  • Ignaciomib

    2017-02-24 04:57:35

    Afhdjhfdifj jfbdjw efwjjfwefkwenwj gbfhewifw gbuewhifjw weifhwef jvsnkqwkf jqwokd n jwegjwfoewjih fnejnfbvuef fijiwrotpojegi owkemwnjrj rowjrokwk nirjwok wn wjrkwkr bvncmcieughfijdf hiwjeow jw riwjoe wkkfn iw jrwjfeigeiwkjfehbks srhreiutregreshv hur erh weiiewhbahewvhjvetjhwahj vahwtvhwebrbw hbewhr rwhetiuawhhewahtbehtbwehjbfsdhlfuh hfwebfa...

  • meaganmm2

    2017-02-23 22:41:32

    Блог с женскими секс-историями http://popki.sexblog.top/?blog-yvette...

  • BrentFib

    2017-02-22 18:10:03

    Это очень интересно, спасибо вам за информацию. _______________________________________________ [url=http://ellemarket.com/xoledol-oficialnyj-sajt.html]холедол[/url]...

  • BigBonusClend

    2017-02-22 09:55:19

    Get NoW your $1500 Bonus! -> http://casino1.pro...

  • Daviddaw

    2017-02-21 22:46:33

    Anabolic Steroids Shop - Buy Injectable and Oral Bodybuilding Drugs Online [url=http://etalaze.org]More info![/url]...