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

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

Коментарi

  • Pamcat

    2018-01-02 02:04:11

    uc application essay prompts assignment help uk college essay prompts [url=https://goodcollegeessays.science]help me with my geometry homework[/url] essays website homework help tudors research papers [url=https://researchessay.cricket]research papers[/url] short term loans direct lenders online payday loans direct lenders online payday loans direct lenders [url=https://shorttermloansdirectlenders.webcam]online payday loans direct lenders[/url]...

  • Custom Essay Writer

    2018-01-02 01:34:30

    essay writing service my.hrw.com homework help paper writing service [url=https://essaywritingservice.us.org]essay writing[/url]...

  • Pauloinsib

    2018-01-01 20:38:01

    how to stop catsscratching sofa I got a fabric sofa. And my cat keeps clawing it and ruining it. What do I do to stop my cat from doking this? Is there a special spary that I can spray on Do I Stop MyCat From ScratchingMy Furniture? -Petfinder . How to Toilet Train Your Cat - An Introduction - . [url=http://citikitty-cat.tk/cat-tunnel-toy/caging-your-cat-at-night-61.html]Caging your cat at night[/url] [url=http://citikitty-cat.tk/colorful-cats/how-to-make-a-cat-meow.html]How to make a cat meow[/url]...

  • insurance auto

    2018-01-01 20:30:02

    compare car insurance compare auto insurance compare auto insurance [url=https://comparecarinsurance.us.com]car insurance quotes comparison[/url]...

  • Jamesatomi

    2018-01-01 19:10:51

    wzfmpem http://www.cetepea.com/Fotos/food.asp?int=29 http://www.sumberteraju.com.my/images/new.asp?w=158 http://www.cetepea.com/Fotos/food.asp?int=236 http://www.arcoirisbrasil.com/Scripts/Widgets/PlayButton/modules.asp?hhhh=78 http://www.tuttichef.it/assets/power.asp?w=78-kigtropin-results-hygetropin-review-hygetropin-hgh-100iu/ [url=http://www.fokkebilijamfonds.nl/images/green.php?taaa=48/]hygetropin yellow top[/url] [url=http://www.albatrozsecsa.com.br/akaimibr/home/content.asp?xx=204-igf-1-canada-jintropin-hgh-fake-riptropin-results]igf-1 canada[/url] [url=http://www...

  • Hire Essay Writer

    2018-01-01 19:09:20

    managerial accounting assignment help college essay prompts math homework help ontario [url=https://essay.us.org]argument essay[/url]...

  • Type Writer Paper

    2018-01-01 18:44:17

    need help to write an essay statistics homework helper need help on homework [url=https://researchpaper.us.com]research paper[/url]...

  • AngelRex

    2018-01-01 17:14:29

    ulnywsx http://www.bongersmedia.nl/987-nike-roshe-run-rood.php http://www.adidasyeezykopen.nl/044-adidas-boost-hardloopschoenen.php http://www.logosurvey.co.uk/996-new-balance-mens-black-trainers.php http://www.nikeairmax2016sale.nl/nike-air-max-2016-navy-blue.html http://www.diplo-magazine.co.uk/adidas-sl-loop-runner-tr-701.php [url=http://www.ropaonlinebaratas.es/abercrombie-tiendas-en-europa-894.php]Abercrombie Tiendas En Europa[/url] [url=http://www.breizhkiss.fr/217-nike-free-run-2-chaussures-running-homme...

  • auto ins

    2018-01-01 14:09:31

    auto insurance quotes car insurance quotes auto insurance quotes [url=https://autoinsurancequotes.us.com]auto insurance quotes[/url]...

  • cheap insurance

    2018-01-01 13:16:26

    compare car insurance cheap car insurance in georgia compare auto insurance quotes [url=https://comparecarinsurance.us.com]car insurance quotes comparison[/url]...