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

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

  • Joecat

    2017-11-23 19:52:48

    https://writemyessay.us.com/ pay someone to write my essay write an essay [url=https://writemyessay.us.com]HTTPS://WRITEMYESSAY.US.COM/[/url]...

  • Joecat

    2017-11-23 19:16:52

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

  • Easy Payday Loan

    2017-11-23 18:40:52

    personal loans for fair credit tribal loans for bad credit next day loans bad credit [url=https://badcreditpersonalloans.us.com]apply for a personal loan[/url]...

  • doode

    2017-11-23 09:45:31

    For those who do discover the rabbit cage you need at a local store's webpage, the delivery cost could also be fairly inexpensive. One need not need to fret any bit in regards to the eminence of it. [url=http://buy-ventolin.com/]albuterol mdi dose[/url] If you're that talented and have the sources out there to you then you're assured to get a product you love. Find out their advantages and disadvantages. [url=http://kaufen-kamagra.com/]kamagra rezeptfrei[/url] Because of specific funding management...

  • Pay Day Loan

    2017-11-23 06:39:06

    best short term loans short term loans with bad credit quick loan bad credit [url=https://shorttermloans.us.com]online loan[/url]...

  • Online Loans

    2017-11-23 00:29:19

    bad credit personal loans bad credit personal loans bad credit personal loans [url=https://badcreditpersonalloans.us.com]personal loans bad credit[/url]...

  • JoseephEdgew

    2017-11-23 00:25:00

    Ремонт техники Apple iphone [url=https://ihelp-store.ru/remont-ayfonov-v-yuzhnom-butovo-ihelp-store.php]ремонт айфонов бутово северное[/url] [url=https://ihelp-store.ru/remont-ayfonov-v-yuzhnom-butovo-ihelp-store.php]ремонт iphone в южном бутово[/url] сервисный центр apple ремонт телефонов айфон...

  • Payday Loans Online

    2017-11-22 18:27:15

    quick cash loans usa quick payday loans no credit check quick loans [url=https://quickloans.us.com]quick loans online[/url]...

  • Richardzep

    2017-11-22 12:25:36

    Последние женские новости здесь [url=http://www.foto-volos.ru/]www.foto-volos.ru[/url]...

  • Joecat

    2017-11-22 11:51:12

    loans quicken quick loans online quicken loans rates [url=https://quickloans.us.com]fast cash personal loans com[/url]...