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

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

Коментарi

  • Kennethrig

    2017-05-02 09:30:32

    wh0cd936165 [url=http://albuterolonline.us.com/]albuterol online[/url] [url=http://buspar4you.us.org/]Buspar[/url] [url=http://advaironline.us.com/]Advair Online[/url]...

  • Alfredpal

    2017-05-02 06:33:16

    wh0cd555631 [url=http://elocon.sexy/]elocon[/url] [url=http://acyclovir.live/]acyclovir[/url] [url=http://tenormin.desi/]tenormin[/url] [url=http://bupropion.fund/]bupropion sr 150 mg[/url] [url=http://celebrex.gripe/]celebrex[/url] [url=http://viagraonline.casa/]how can i buy viagra online[/url] [url=http://adalat.city/]adalat[/url]...

  • Kennethrig

    2017-05-02 05:36:04

    wh0cd773082 [url=http://stromectolonline.us.com/]buy stromectol[/url]...

  • Kennethrig

    2017-05-02 02:35:20

    wh0cd664360 [url=http://vermox.credit/]mebendazole tablets[/url] [url=http://crestor.business/]crestor[/url] [url=http://acyclovir.schule/]site here[/url] [url=http://tamoxifen.live/]tamoxifen[/url] [url=http://tadalafil.coffee/]tadalafil[/url]...

  • Alfredpal

    2017-05-02 02:29:56

    wh0cd392549 [url=http://cipro.casa/]ciprofloxacin 500mg[/url] [url=http://effexor.coffee/]buy effexor online[/url] [url=http://sildenafil.solutions/]where to buy sildenafil[/url] [url=http://amoxicillin.business/]amoxicillin tablet[/url] [url=http://inderal.business/]inderal[/url] [url=http://triamterene.exposed/]triamterene-hctz 37.5-25 mg tb[/url]...

  • Alfredpal

    2017-05-01 15:33:13

    wh0cd968998 [url=http://provera16.top/]provera[/url] [url=http://buyatarax2016.top/]atarax[/url] [url=http://buyerythromycin-1.top/]buy erythromycin[/url] [url=http://buyzoloft2017.top/]zoloft[/url] [url=http://triamterene17.top/]triamterene[/url] [url=http://buycolchicine2012.top/]colchicine probenecid 0.5 500[/url] [url=http://buyneurontin6.gdn/]full report[/url]...

  • sylvieSuh

    2017-05-01 14:29:38

    Bonjour, je cherche des magasins ou sur le net pour acheter des vêtements de grossesse sympa et pas trop cher. (j'avoue que mettre 40 euros ds un haut ou un pantalon que l'on ne met pas longtemps, ça m'embête un peu ) Alors je vous pose la question à vous mesdames. Allez vous plutot en magasin ou acheter vous sur le net ? Merci de me donner tous vos tuyaux. j'ai vue celui ci qu'en pensez vous ? [URL=https://shopbloomingdays.com/maillot-de-bain-de-grossesse-22]maillot de bain femme grossesse[/URL...

  • Kennethrig

    2017-05-01 10:42:09

    wh0cd120738 [url=http://buyindocin11.top/]generic indocin[/url] [url=http://yasmin11.top/]yasmin[/url] [url=http://nexium-365.us/]nexium[/url] [url=http://arimidex8.gdn/]arimidex[/url] [url=http://elimite-8.gdn/]elimite[/url] [url=http://trazodone2011.top/]click this link[/url] [url=http://buyvermox4.top/]where can i buy vermox medication online[/url]...

  • Kennethrig

    2017-05-01 09:18:43

    wh0cd66378 [url=http://tenorminnorx.us.com/]tenormin online[/url] [url=http://buyamitriptyline.us.org/]buy amitriptyline[/url]...

  • Alfredpal

    2017-05-01 07:33:13

    wh0cd642831 [url=http://vpxl365.us.com/]BUY VPXL[/url]...