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

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

  • osyanumjk

    2017-03-18 12:43:07

    [url=http://www.macmakeupcheap.com/]Cheap Mac Makeup Wholesale[/url],Cheap Cosmetics Online Wholesale Cheap Mac Cosmetics Free Shipping Contract Manufacturing Cosmetics....

  • JeremySes

    2017-03-18 10:46:59

    relish your website, thanks and keep the honesty a possessions berth check the latest [url=http://onlinecasinos-x.com]online casino[/url] bonus offers...

  • ronaldyr60

    2017-03-18 04:50:26

    My new number http://elite.dating.blogporn.in/?epoch.anya lgbt dating websites speed dating in bristol heart fm dating free gay contacts affiliate websites...

  • Williamevich

    2017-03-18 04:38:48

    [url=https://cslottery.ru/]кс гоу рулетка[/url] - кс рулетка для бомжей, рулетка кс го от 1 для бомжей....

  • GeorgeTaupt

    2017-03-17 23:57:50

    Прочитать как сделать [url=http://o-dachnik.ru/kak-sdelat-kompost-v-domashnix-usloviyax.html]компост в домашних условиях[/url] можно на сайте o-dachnik.ru/...

  • Ogoza34

    2017-03-16 18:11:15

    theophylline for cheap price http://order-theophylline.soup.io http://ordertheophylline200mgfastdelivery.soup.io...

  • WesleyDuaks

    2017-03-16 16:06:48

    [url=http://dbsound.ru/stage]аренда подиума москва[/url] - аренда подиума москва, аренда фермовых конструкций....

  • remontoknaBef

    2017-03-16 07:44:10

    Просадка, затирание, прогибание нарушение герметичности (продув, сквозняк) створок – перечисленное нормальное проявление, точто со временем случается во абсолютно всех металлопластиковых оконных рамах и дверях. И их следовательно следует отлаживать (обслуживать), чтобы избегнуть, в дальнейшем, дорогого ремонта. Все это как в автомобиле услуга прохождения тех обследования : если к сроку не поменять масло, не исправить стук или побочный шум – итоги могут быть печальными или иначе говоря трагическими...

  • Williamstync

    2017-03-16 01:59:14

    заболевание импотенция пропала потенция что делать [url=http://4na.apteka-24x7.ru/3/chto-takoe-impotentsiya-ee-priznaki-64756.html]Что такое импотенция ее признаки[/url] левитра форте челябинск сиалис 5 мг как принимать при молочнице [url=http://26qi.apteka-24x7.ru/4/frigidnost-i-viagra-61114.html]Фригидность Рё виагра[/url] левитра новая форма левитра дженерик купить в аптеке эффективные таблетки для потенции [url=http://f6n.apteka-24x7.ru/6/dzheneriki-sialis-v-samare-59777...

  • Elenabut

    2017-03-14 14:45:03

    Здравствуйте Предлагаю вам новую коллекцию платьев 2017 года Мы делаем костюмы ручной работы всех размеров. Более подробно можно узнать [url=https://vk.com/club141523384]тут[/url] http://cherryblossomsdress.ru...