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

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

  • Bennydip

    2017-06-03 18:51:22

    wh0cd685873 [url=http://wellbutrin11.top/]wellbutrin[/url] [url=http://buystrattera11.top/]buy strattera[/url] [url=http://buyavodart0.top/]avodart[/url] [url=http://cytotec20.top/]cytotec[/url] [url=http://buyinderal2017.gdn/]inderal 40mg 80mg[/url]...

  • KonstanGremi

    2017-06-03 16:45:13

    [url=https://volvopremium.ru/]Обслуживание и ремонт легковых автомобилей Volvo,сервис volvo , автосервис Вольво , volvo сервис, сервис вольво москва, сервис Вольво в Москве ,вольво сервис москва,ремонт вольво москва,техцентр вольво,автосервис volvo , Автосервис Volvo в Москве, обслуживание Вольво, ремонт Volvo, автосервис Volvo Вольво,сервис Volvo , специализированный сервис Вольво , сервис Вольво в Москве,техническое обслуживание автомобилей Вольво,АВТОСЕРВИС ВОЛЬВО – АВТОСЕРВИС VOLVO В МОСКВЕ И МОСКОВСКОЙ ОБЛАСТИ,ремонт Вольво в Москве, автосервис Volvo, автосервис Вольво, сервис Вольво,Volvo сервис[/url] [url=https://volvopremium...

  • KonstanGremi

    2017-06-03 16:44:49

    [url=https://volvopremium.ru/]Обслуживание и ремонт легковых автомобилей Volvo,сервис volvo , автосервис Вольво , volvo сервис, сервис вольво москва, сервис Вольво в Москве ,вольво сервис москва,ремонт вольво москва,техцентр вольво,автосервис volvo , Автосервис Volvo в Москве, обслуживание Вольво, ремонт Volvo, автосервис Volvo Вольво,сервис Volvo , специализированный сервис Вольво , сервис Вольво в Москве,техническое обслуживание автомобилей Вольво,АВТОСЕРВИС ВОЛЬВО – АВТОСЕРВИС VOLVO В МОСКВЕ И МОСКОВСКОЙ ОБЛАСТИ,ремонт Вольво в Москве, автосервис Volvo, автосервис Вольво, сервис Вольво,Volvo сервис[/url] [url=https://volvopremium...

  • DzkapdlKanna

    2017-06-03 13:50:53

    trenabol tri tren http://deportesur.cl/index.php?option=com_k2&view=itemlist&task=user&id=6477 trenbolone reviews trenbolone dosage tren test cycle trenabol http://729mixx.com/index.php?option=com_k2&view=itemlist&task=user&id=96118 trenbolone steroid tren enanthate tren ace half life oral tren http://remontokon116.ru/index.php?option=com_k2&view=itemlist&task=user&id=32355 how long does tren stay in your system tren steroids trenbolone enanthate dosage tren dosage http://coogomezplata.com/index...

  • Alfredpal

    2017-06-03 13:16:48

    wh0cd717578 [url=http://cymbalta24.us.org/]more info[/url] [url=http://paxil247.us.org/]paxil[/url]...

  • CharlesHoups

    2017-06-03 13:06:33

    wh0cd240781 [url=http://sexkuren.com/]levitra vs cialis[/url] [url=http://buyaugmentin.us.com/]Augmentin Online[/url]...

  • Alfredpal

    2017-06-03 09:49:26

    wh0cd554498 [url=http://buylasix2016.top/]buy lasix[/url] [url=http://lisinopril17.top/]lisinopril[/url] [url=http://trazodone0.top/]trazodone[/url] [url=http://buyavodart20.top/]avodart generic[/url] [url=http://buyeffexor5.gdn/]effexor medication[/url] [url=http://arimidex75.gdn/]arimidex[/url]...

  • Alfredpal

    2017-06-03 04:13:24

    wh0cd337056 [url=http://tamoxifen15.top/]tamoxifen[/url] [url=http://zithromax10.top/]zithromax[/url] [url=http://eurax2010.gdn/]eurax[/url] [url=http://tretinoin-6.gdn/]tretinoin cream[/url] [url=http://ampicillin1.top/]ampicillin[/url] [url=http://anafranil5.top/]anafranil[/url]...

  • CharlesHoups

    2017-06-03 03:10:43

    wh0cd817223 [url=http://buytriamterene-5.top/]buy triamterene[/url] [url=http://metformin2011.gdn/]metformin 1000 mg no prescription[/url] [url=http://buysuhagra15.gdn/]suhagra[/url] [url=http://ampicillin5.gdn/]ampicillin[/url]...

  • Kennethrig

    2017-06-03 02:38:57

    wh0cd902184 [url=http://genericlevitra.us.org/]generic levitra[/url] [url=http://orderviagraonline.us.com/]Viagra Cheap[/url] [url=http://medrol247.us.org/]order medrol[/url]...