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

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

Коментарi

  • Essay Online

    2017-12-16 02:43:23

    writing my essay for me writing my essay uk dissertation writing [url=https://essaywritingservice.us.org]buy college research papers[/url]...

  • Joecat

    2017-12-16 01:24:49

    help me write my college essay help with essay writing buy college essays online [url=https://collegeessay.us.com]writing a college essay about yourself[/url]...

  • Jamescat

    2017-12-16 01:20:52

    dissertation proposal writing help pay someone to write my assignment solve my math [url=https://schoolpapers.trade]school papers[/url] instant online payday loan direct lenders for bad credit instant online payday loan [url=https://instantonlinepaydayloan.cricket]pay day lenders[/url] payday loans lenders cash advance loan advance cash payday loan [url=https://cashadvanceloan.bid]loans online no credit check[/url] best essay writing service research paper titles writing a college admission essay [url=https://bestessaywritingservice...

  • Jamescat

    2017-12-16 00:49:35

    quick loans 100 approval quick loans 100 approval quick loans 100 approval [url=https://quickloans100approval.stream]cash loans[/url] college essay prompts college application letter college essay prompts [url=https://collegeessayprompts.trade]i need someone to do my homework[/url] small payday loans same day loan small payday loans [url=https://smallpaydayloans.bid]small payday loans[/url] bbw webcam cam sites cam sites [url=https://camsites.cricket]cam sites[/url] the best online payday loans the best online payday loans small online payday loans [url=https://thebestonlinepaydayloans...

  • MichaelFew

    2017-12-16 00:15:34

    нагрузочные модули 10 кв [url=https://general-energo.ru/]передвижная дизельная электростанция 100 квт[/url]...

  • TimothyJal

    2017-12-15 23:52:45

    [url=http://www.delledekor.com/jslider/list.asp?kat=89]Gh Ormone Wikipedia[/url] In case you are a novice to video marketing, you should start with a bit of simple exercise routines. Produce a brief video of oneself demonstrating a product or service or talking about your small business and show it to many buddies to get some responses. Will not post your video clips till they look professional and show a confident image of your manufacturer. [url=http://www.avserkantoper.com/highslide/field.asp?xxs=422-igf-1-test-buy-jintropin-mexico-gensci-jintropin]igf-1 test[/url] Opt for some waxed floss when you are possessing difficulty with flossing...

  • Davidsiz

    2017-12-15 23:48:05

    блочно модульное оборудование для нефтегазового сектора [url=http://safzem.ru/]пс 200 квт[/url]...

  • Type Writer Paper

    2017-12-15 23:26:11

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

  • Online Essays

    2017-12-15 21:06:42

    college essays help in math homework python assignment help [url=https://collegeessays.us.com]college essay help[/url]...

  • Paydayloan

    2017-12-15 18:30:41

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