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

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

  • TracyHorne

    2017-04-25 10:00:19

    wh0cd327980 [url=http://buyretina365.top/]buy retin a online[/url] [url=http://furosemide10.top/]furosemide[/url] [url=http://buyamoxicillin911.gdn/]amoxicillin[/url] [url=http://atenolol500.top/]atenolol[/url] [url=http://advair25.top/]advair[/url] [url=http://celebrex-1.gdn/]where to buy celebrex[/url]...

  • TracyHorne

    2017-04-25 07:31:35

    wh0cd219258 [url=http://avodart.fund/]generic avodart[/url] [url=http://elocon.tools/]elocon[/url] [url=http://buymotilium.cash/]generic motilium[/url] [url=http://amitriptyline.shopping/]amitriptyline[/url] [url=http://nolvadex.sexy/]nolvadex[/url] [url=http://buypropecia.desi/]buy propecia cheap[/url]...

  • AaronPinge

    2017-04-25 06:06:51

    wh0cd458223 [url=http://buymedrol0.top/]medrol[/url] [url=http://buycephalexin2013.gdn/]buy cephalexin[/url] [url=http://buydiclofenac247.top/]diclofenac 50 mg tablet[/url] [url=http://buyretina4.gdn/]generic retin-a cream[/url] [url=http://buyproscar-1.gdn/]proscar[/url]...

  • BigBonusClend

    2017-04-25 04:24:08

    Get NoW your $1500 -> http://takemoney.pro...

  • TracyHorne

    2017-04-25 02:56:23

    wh0cd1816 [url=http://elocon.photography/]elocon[/url] [url=http://buyviagra.center/]viagra[/url] [url=http://diclofenac.reisen/]diclofenac topical gel[/url] [url=http://bupropion.solutions/]bupropion 100mg[/url] [url=http://erythromycin.work/]ilosone[/url] [url=http://vardenafil.casa/]vardenafil[/url]...

  • AaronPinge

    2017-04-25 00:10:34

    wh0cd186418 [url=http://nolvadex.email/]nolvadex[/url] [url=http://elimite.desi/]elimite[/url] [url=http://propecia.camera/]propecia[/url] [url=http://eurax.photography/]eurax[/url]...

  • TracyHorne

    2017-04-25 00:10:34

    wh0cd469548 [url=http://ventolin4.us/]buy cheap ventolin[/url] [url=http://sildenafil75.gdn/]sildenafil[/url] [url=http://stromectol2010.top/]stromectol[/url] [url=http://buybaclofen2013.top/]buy baclofen online[/url]...

  • non-prescription-cialis-online-pharmacy

    2017-04-24 23:50:33

    [url=http://usa-safe-store.com/#watermelon-rind-viagra]when will levitra be generic[/url] how to get viagra [url=http://safe-shopping-us.com/#anxiety-erectile-dysfunction]viagra heart problems[/url] over the counter levitra [url=http://usa-safe-store.com/#where-can-i-buy-cheap-viagra]northwest pharmacy coupon[/url] walgreens pharmacy refill [url=http://safe-store-usa.com/#where-to-get-viagra-online]crivitz pharmacy[/url] arrow pharmacy hartford ct...

  • TracyHorne

    2017-04-24 19:34:44

    wh0cd252101 [url=http://buycipro.shopping/]buy cipro online[/url] [url=http://yasmin.news/]yasmin[/url] [url=http://cafergot.mba/]cafergot[/url] [url=http://arimidex.coffee/]arimidex[/url] [url=http://trazodone.live/]desyrel 50 mg[/url]...

  • AaronPinge

    2017-04-24 17:13:50

    wh0cd1816 [url=http://buyavana16.gdn/]avana[/url] [url=http://buyaugmentin2012.top/]augmentin[/url] [url=http://cialis-2015.top/]cialis[/url] [url=http://buyrimonabant2016.top/]buy rimonabant[/url]...