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

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

  • Direct Lenders

    2017-11-04 01:44:06

    bank personal loans best place for personal loans payday loans bad credit [url=https://badcreditpersonalloans.us.com]a loan with bad credit[/url]...

  • Joecat

    2017-11-04 01:06:27

    payday loans for bad credit direct payday lenders bad credit payday loans for bad credit [url=https://loansforbadcredit.us.com/]bad credit loans direct lenders[/url]...

  • A Payday Loan

    2017-11-04 00:39:40

    short term loans short term loans where can i get a personal loan [url=https://shorttermloans.us.com]payday loans no brokers[/url]...

  • Jeremyboofs

    2017-11-04 00:24:53

    [url=http://www.taijischoolwf.nl/522-asics-gel-blast-5-dames.php]Asics Gel Blast 5 Dames[/url] Increase your immunity mechanism by such as vit c-unique meals into the diet plan or getting health supplements. Several fresh fruits including lemon or lime fresh fruits and strawberries contain vit c. In the event you want to use vitamin C supplements, they may be acquired at most health food stores and bulk entrepreneurs. [img]https://www.stasi-live-haft.de/images/sta2/8171-fußballschuhe-für-rasen-und-kunstrasen...

  • Jessieinsib

    2017-11-03 22:43:55

    BloodintheUrineinWomen - Your browser indicates if you've visited this link . SENTRYCalmingpSrayforCats Jeffers Pet Your browser indicates if you've ivsited this link . [url=http://313ominli-ho07.soup.io/]Average life span of a cat[/url] [url=http://08tianisiado9u.soup.io/]Anti cat mat[/url] Spayingg and neutering will help your pet adjust to itsss new life and prevetn unwanted litters and pet homelessness. Find a clinic near HowIgetridofdog pee on a mattress - Your brwser indikcates if you've visited this link...

  • Jamescat

    2017-11-03 07:00:29

    buy an essay paper buy essay online cheap help my essay [url=https://buyessay.us.com]buy essay[/url]...

  • Michaelfep

    2017-11-02 23:53:30

    столото [url=http://bilet-loto.ru/]столото[/url]...

  • Jamescat

    2017-11-02 19:21:26

    http://writemyessay.us.com my thesis write my essay [url=https://writemyessay.us.com]write my essay for me cheap[/url]...

  • Payday Express

    2017-11-02 19:10:32

    quicken loans rates payday loans quick cash quickloan [url=https://quickloans.us.com]loans quick approval[/url]...

  • Jamescat

    2017-11-02 19:02:27

    a website that writes essays for you order essay paper custom essay help [url=https://buyessays.us.com]buy essays online[/url]...