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

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

  • Waynerenda

    2018-02-01 09:50:24

    Полиция возбудила дело против пассажира бизнес-класса, который устроил дебош на борту самолета, летевшего из Москвы в Нью-Йорк, сообщила официальный представитель МВД Ирина Волк, передает РИА Новости. Читайте об этом подробнее на сайте [url=http://s-narodom.ru]s-narodom.ru[/url]...

  • Jamescat

    2018-02-01 08:50:13

    bad credit payday loans fastest payday loan fastest payday loan [url=https://fastestpaydayloan.bid]cash loans[/url] free adult webcam chat adult cam free sex webcam chat [url=https://freeadultwebcamchat.science]free adult webcam chat[/url] a payday loan payday advance no credit check online payday loan lender [url=https://apaydayloan.bid]same day payday loans online[/url]...

  • Online Lenders

    2018-02-01 08:42:06

    quick money making loanme installment loans online [url=https://installmentloans.us.com]loan poor credit[/url]...

  • Jamescat

    2018-02-01 08:12:28

    best payday loan best payday loan cash advance lenders [url=https://bestpaydayloan.stream]best payday loan[/url] payday loans direct lenders direct lenders payday loans payday loans direct lenders [url=https://paydayloansdirectlenders.stream]installment loan[/url] essay writing best dissertation writing service uk dissertation writing [url=https://essaywriting.stream]writing my essay[/url] easy payday loan direct online lenders best payday loan [url=https://apaydayloan.bid]payday loan[/url] free porn shows live porn webcam free porn cams [url=https://liveporncams...

  • Jamescat

    2018-02-01 07:32:05

    government homework help school papers school papers [url=https://schoolpapers.cricket]research papers[/url] payday lenders direct direct payday loan lenders payday lenders direct [url=https://directpaydayloanlenders.webcam]direct payday loan lenders[/url] payday loan direct lender payday faxless fast cash loan same day loan [url=https://directlenderpaydayloans.cricket]speedycash[/url] online loan instant online payday loan instant online payday loan [url=https://instantonlinepaydayloan.cricket]instant online payday loan[/url] wife webcam webcam slut online porn chat [url=https://wifewebcam...

  • Jamescat

    2018-02-01 07:26:52

    short term payday loan best payday loan payday loans no credit check [url=https://paydayloansnocreditcheck.webcam]payday loans for bad credit[/url] cash advance loan advance cash payday loan cash advance loan [url=https://cashadvanceloan.bid]direct lenders immediate payment loans[/url] payday cash advances payday loan direct lender payday loan direct lender [url=https://directlenderpaydayloans.cricket]direct lender payday loans[/url] easy approval payday loans quick loans easy approval payday loans [url=https://easyloans...

  • Jamescat

    2018-02-01 06:56:31

    small online payday loans payday loans online payday loans on line [url=https://smallpaydayloans.cricket]loans online[/url] quick loans payday loans on line cash loans [url=https://quickloans.cricket]quick loans[/url] no credit check lenders only cash advance loan cash advance lenders [url=https://cashadvanceloan.science]advance cash payday loan[/url] webcam amateur webcam pussy hot webcam girls [url=https://webcampussy.webcam]pussy webcam[/url] online payday loan lender online payday loan lender online payday loan lender [url=https://onlinepaydayloanlender...

  • Write Essays For Me

    2018-02-01 06:42:57

    help with homework homework help college homework help [url=https://homeworkhelp.us.com]do my homework for me[/url]...

  • Write My Thesis

    2018-02-01 04:14:35

    essay writer college essays community essay writer [url=https://essaywriter.us.com]the value of a college education essay[/url]...

  • Direct Lenders

    2018-02-01 04:07:42

    payday advance loans in houston poor credit loans guaranteed approval [url=https://paydayadvance.us.com]cash loans no credit check[/url]...