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

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

  • MerlinJah

    2017-08-07 05:26:50

    [url=http://www.cosebuonedicampagna.it/ray-ban-polarizzati-carbonio-402.html]Ray Ban Polarizzati Carbonio[/url] Should you creative lightning hits and you have a great idea for a movie, motion picture it once you can if you have the gear to do this. Awarded, acquiring possibly professional equipment or workers may well appear to be the greatest path to get, but this sort of agreements will take time. Catch the power and essence of any thought even though it is fresh. Even an beginner movie with authenticity can outshine some thing expertly polished...

  • Emerydug

    2017-08-07 02:43:26

    shut down a exclude potty of my http://medlog.info/ favorite inseparable carb treats. I don’t like wonderful euphonious sweets and the cream cheese gives this nothing but the revile lilliputian atom of tinge without the everything kit considered the perfect it’s perfumed sufficiency in search me. You can consolidate more sweetener to this also. I cessation padlock confines approximately 1/2 cup because it’s loads in the livelihood of me. But http://medlog.info/ tastefulness it as you the changeless pedigree with with and offering on on the be nurtured more if you like it sweeter...

  • brianatu16

    2017-08-07 01:03:56

    Started new cobweb predict http://oralfixation.purplesphere.in/?register.raegan erotic graphics erotic children most erotic movie craiglist erotic erotic illustrations...

  • Emads

    2017-08-06 19:48:33

    такси по крыму такси алушта аэропорт симферополь стоимость...

  • Michaelwrexy

    2017-08-04 18:57:00

    славный веб ресурс [url=http://nologhelp.ru/]Списывание НДС[/url] - Финансовый консультант, Оптимизация НДС....

  • ncihanEagex

    2017-08-04 17:11:02

    topcu84k3e viagra online prescription - viagra online - [url=http://viagraonlinetop2017.com]buy generic viagra online[/url] - <a href="http://viagraonlinetop2017.com"> cheap viagra online</a> - viagra online usa...

  • Guesttholf

    2017-08-04 15:50:37

    guest test post [url=http://googlee.te/]bbcode[/url] html http://googlee.te/ simple...

  • Geraldbab

    2017-08-04 14:38:06

    Buy a plane ticket | Book a cheap hotel - airticketbooking.life [url=http://airticketbooking.life]Show more![/url] http://bbs.51sheying.com/home.php?mod=space&uid=1295182 http://wancgc.com/home.php?mod=space&uid=25831 The beds entertain supersoft comforters and a amsterdam rollaway chance on brand new guests. When Jimmy Tell and Robert Plant toured India in the 1970s, they made the inn their Mumbai base. According to Manoj Worlikar, general boss, the boutique realty by receives corporates, single travelers and Israeli diamond merchants, who stay representing a week on average...

  • Patriotkzi

    2017-08-04 01:42:08

    Добрый день господа[url=http://sfilm.by/]![/url] Предлагаем Вашему вниманию высококачественные профессиональные плёнки. Наша организация"ООО Защитные плёнки" работает 15 лет на рынке этой продукции в Беларуси. Мы можем предложить Вам [url=http://sfilm.by]Защитные плёнки[/url] ,[url=http://sfilm.by]архитектурные плёнки[/url],[url=http://sfilm.by]декоративные плёнки[/url],[url=http://sfilm.by]автомобильные плёнки[/url] и [url=http://sfilm.by]противопожарные плёнки[/url]. Более подробная информация размещена на нашем [url=http://sfilm...

  • edwinacy3

    2017-08-04 01:27:03

    My contemporary page http://arab.aunties.porndairy.in/?post.bethany glitters rites lies relationship telefondan...