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

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

Коментарi

  • Quick Loan

    2017-12-18 05:37:44

    payday advance loans cash loans online loans with no credit check [url=https://loan.us.org]quick cash loans[/url]...

  • Payday Loans Online

    2017-12-18 03:29:50

    small online payday loans loan loan [url=https://loan.us.org]loan[/url]...

  • Quick Loans

    2017-12-18 02:41:35

    payday loan online loans get a loan [url=https://loan.us.org]advance payday loans online[/url]...

  • Jamescat

    2017-12-18 02:12:17

    payday loans direct lenders direct payday lenders online best cash advance loans online [url=https://paydaylendersdirect.webcam]payday lenders direct[/url] payday advance online cash advance lenders payday advance loans [url=https://cashadvancelenders.trade]direct lenders of loans[/url] college paper research paper college paper [url=https://collegepaper.trade]college essay[/url] money loan a payday loan money loan [url=https://moneyloan.trade]quick loan[/url] quick loans cash advance loan online loans [url=https://quickloans...

  • CharlesFlogs

    2017-12-17 23:27:31

    sex video porn [url=http://www.friv-2017.com/]friv sex video with animals[/url] http://www.friv-2017.com/...

  • Davidrek

    2017-12-17 22:56:36

    Привет всем! интересный у вас сайт! Нашел интересную базу кино: [b] Лучшие комедии 2017 в хорошем качестве hd [/b] [url=http://kinobunker.net/]http://kinobunker.net/[/url] Тут: http://kinobunker.net/drama/9527-yadovitoe-derevo-the-poison-tree-2012.html Смотреть Ядовитое дерево / The Poison Tree (2012) онлайн бесплатно Тут: http://kinobunker.net/main/5691-scenaristy-nagradili-otel-grand-budapesht.html Здесь: http://kinobunker.net/fantastika/ 2017 список лучшие фантастика Тут: [url=http://kinobunker...

  • Joecat

    2017-12-17 20:53:05

    websites that write essays for you buy an essay my homework now [url=https://writemyessay.us.com]write my essay[/url]...

  • Payday Loan

    2017-12-17 19:38:54

    loan direct lender cash loans [url=https://loan.us.org]payday loans with no credit check[/url]...

  • Buy An Essay Paper

    2017-12-17 18:46:57

    research papers research writing research paper [url=https://researchpaper.us.com]writing a paper[/url]...

  • Pamcat

    2017-12-17 15:15:35

    payday loans on line payday loans with no credit check internet payday loans [url=https://internetpaydayloans.stream]internet payday loans[/url] best payday loans online direct lenders payday loans payday loans lenders [url=https://paydayloanslenders.stream]direct lenders payday loans[/url] illustration essay illustration essay illustration essay [url=https://illustrationessay.bid]illustration essay[/url] webcam amateur free live sex shows hot webcam girls [url=https://hotwebcamgirls.science]wife on webcam[/url] online payday loans direct lenders same day payday loans online payday loan lenders [url=https://samedaypaydayloansonline...