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

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

  • Buy An Essays

    2018-01-22 21:21:19

    write my paper for me write my papers do my paper [url=https://writemypaper.us.com]paper help[/url]...

  • Jamescat

    2018-01-22 21:07:13

    cash loan online payday loans direct lenders online payday loans direct lenders [url=https://shorttermloansdirectlenders.webcam]bad credit loans direct lenders[/url] help me write my college essay school papers term papers for sale online [url=https://schoolpapers.science]school papers[/url] xxx webcams chat room free sexy webcams [url=https://freexxxwebcams.webcam]porn webcams[/url] best payday loan online easy payday loan cash loans [url=https://bestpaydayloan.cricket]best payday loan online[/...

  • Loans For Bad Credit

    2018-01-22 20:43:36

    advance payday payday advance personal loan no credit [url=https://paydayadvance.us.com]loans without credit checks[/url]...

  • Jamescat

    2018-01-22 20:29:56

    help with economics homework argumentative essay critical essay [url=https://criticalessay.trade]term papers online[/url] small online payday loans online payday loans direct lenders same day payday loans online [url=https://samedaypaydayloansonline.cricket]best online loans[/url] webcam strippers webcams porn webcams porn [url=https://freexxxwebcams.webcam]free webcams[/url]...

  • FedorRem

    2018-01-22 19:22:26

    [url=https://botlab.su/108-pages/elements/parsing/292-parsing-vkontakte][img]https://botlab.su/images/uslugi/parsing_code_1.png[/img][/url] [u][b]парсинг групп вк[/b][/u], это процесс автоматический, а вот ручная обработка, это очень сложная задача, особенно, когда речь идет об информации технической, каких-то специализированных данных, которые человеку трудно воспринимать, и легко допускает ошибки, при обработке такой информации. Мы всем советуем этот процесс автоматизировать, так что хотим предложить [url=https://botlab...

  • Homework Assignments

    2018-01-22 17:03:39

    term paper term paper write a term paper [url=https://termpaper.us.com]term paper[/url]...

  • Bad Credit

    2018-01-22 14:12:29

    personal loans online personal loans online cheap personal loans [url=https://personalloansonline.us.org]personal loans unsecured[/url]...

  • Victordup

    2018-01-22 13:39:24

    ncsjxlo http://www.adidasnmddamessale.nl/adidas-croco-pink-370.html http://www.sunglassesoutletuk.nu/ray-ban-wayfarer-large-269.htm http://www.hungryandhomeless.co.uk/cheap-nike-air-max-1-ultra-moire-976.htm http://www.nikeairmax2015kopen.nl/656-2015-air-max-360 http://www.rollinsband.co.uk/asics-gel-nimbus-17-black-690.html [url=http://www.teestainstudios.co.uk/replica-louis-vuitton-bags-uk-117.php]Replica Louis Vuitton Bags Uk[/url] [url=http://www.oaaa.fr/600-doudoune-canada-goose-grise.htm]Doudoune Canada Goose Grise[/url] [url=http://www...

  • Jamescat

    2018-01-22 13:07:13

    short term payday loan online lenders small payday loans [url=https://smallpaydayloans.cricket]small payday loans[/url] payday loans direct lenders cash loans online money loan [url=https://paydayloansdirectlenders.stream]payday loan direct lenders[/url] loans online bad credit loans online bad credit loans online bad credit [url=https://loansonlinebadcredit.webcam]bad credit loans direct lenders[/url] essay writing service homework help history best essay writing service [url=https://bestessaywritingservice...

  • French Homework

    2018-01-22 12:12:39

    essay writer essay helper teachers essay [url=https://essaywriter.us.com]the help movie essay[/url]...