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

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

  • TimothyCaump

    2017-11-29 11:40:13

    импланты себбин [url=https://companyru.ru/%D1%86%D0%B5%D0%BD%D1%82%D1%80/%D0%BC%D0%BE%D1%81%D0%BA%D0%B2%D0%B0/%D1%84%D0%B8%D1%80%D0%BC%D0%B0/%D0%B8%D0%BC%D0%BF%D0%BB%D0%B0%D0%BD%D1%82%D0%B0%D1%82%D1%8B-sebbin]импланты яичек для мужчин[/url]...

  • Jamescat

    2017-11-29 07:09:53

    college essays college essays college admission essay help [url=https://collegeessay.us.com]help on writing essays[/url]...

  • JoshuaHig

    2017-11-29 07:06:48

    [url=https://junior35.ru/brands/old_navy.php]Детская одежда Old Navy[/url] - Детская одежда Gusti (Густи), Детская одежда Крокид (Crockid)....

  • Williamcag

    2017-11-29 06:40:32

    xmvjqbo http://www.anumadutchi.nl/woolrich-arctic-parka-donkerblauw-594.html http://www.scanconairways.dk/067-moncler-jackets-men.asp http://www.gekkekoe.nl/994-canada-goose-jas-wit-bont.asp http://www.emergency-management-expo.nl/379-woolrich-arctic-parka-kids.shtml http://www.lereve-lingerie.co.uk/904-peuterey-outlet-amazon.htm [url=http://www.pudelpointer-westfalen.de/790-ugg-boots-damen-bow.html]Ugg Boots Damen Bow[/url] [url=http://www.robs.nu/591-duvetica-eracle.php]Duvetica Eracle[/url] [url=http://www...

  • AnthonyTot

    2017-11-29 06:35:31

    ewthvik http://www.anumadutchi.nl/uitverkoop-woolrich-jassen-427.html http://www.happyvoices-gospel.de/083-parajumpers-gobi-bomber.php http://www.classic-bikes.dk/953-canada-goose-forhandler-jylland.htm http://www.clovis.nu/barbour-i-stockholm-727.php http://www.creststore.se/canada-goose-expedition-parka-herr-svart-021.html [url=http://www.ferien.nu/765-ugg-boots-bailey-button.htm]Ugg Boots Bailey Button[/url] [url=http://www.forestedavivere.it/piumini-duvetica-bimbi-123.asp]Piumini Duvetica Bimbi[/url] [url=http://www...

  • ManuelRax

    2017-11-29 06:34:33

    nphkgcl http://www.classic-bikes.dk/538-canada-goose-til-damer.htm http://www.icsurreyonline.co.uk/parajumpers-right-hand-masterpiece-olive-959.php http://www.cgbi.it/686-woolrich-parka-uomo-outlet.php http://www.bruidssalonathena.nl/049-woolrich-parka-blue.html http://www.antifa-giessen.de/belstaff-wachsjacke-herren-518.html [url=http://www.chantalflorist.co.uk/195-barbour-quilted-wax-jacket.htm]Barbour Quilted Wax Jacket[/url] [url=http://www.modetrends.nu/parajumpers-dame-salg-576.html]Parajumpers Dame Salg[/url] [url=http://www...

  • Joecat

    2017-11-29 06:24:59

    short term loans short term cash loans personal loans for fair credit [url=https://shorttermloans.us.com]personal loans with no credit check[/url]...

  • NAILamach

    2017-11-29 06:17:31

    В наше трудное время сложно выделить время на посещение салона красоты, надо знать лучший салон города учитывать то как там работают, все ли там стерилизуют: парафинотерапия. Мы приглашаем леди в наш спа центр для гель-лака. Тяжело в нашем мире без ухода за сабой,приходите в нашспа на домугде вы получите все виды ухода за ногтями рук и ног. Мы работаю дома дорожим каждого своим клиентами делаювсе хорошо и аккуратно. Следим за стерильностью приборов которыми использую во время **ман.пед и так дал*...

  • Jamescat

    2017-11-29 04:22:13

    short term loans short term loan no credit check short term cash loans [url=https://shorttermloans.us.com]short term loan lenders[/url]...

  • Joecat

    2017-11-29 00:41:14

    quick cash loans bad credit fast easy loan fast loans no credit [url=https://quickloans.us.com]quick personal loans[/url]...