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

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

  • Online Lenders

    2018-01-05 20:47:19

    loans with no credit check cash advance cash loans [url=https://cashadvance.us.org]cash advance[/url]...

  • Edwardnig

    2018-01-05 14:19:29

    Битклуб Bitcoin club это Пассивный Доход, Майнинг, Партнерка Обучение 8(900)431-04-07 Юрий, Все Лучшее без Риска! http://jiznenniy.lp.altclub.biz/altinvest Битклуб Bitcoin club это Пассивный Доход, Майнинг, Партнерка, Обучение. Все Лучшее Для Вас без Риска! 8(900)431-04-07 http://jiznenniy.lp.altclub.biz/altinvest...

  • JamesNuh

    2018-01-05 13:36:50

    Heroverin - SMM форум продвижение в социальных сетях [url=https://heroverin.info/ ]накрутка instagram[/url] https://heroverin.info/...

  • Jamescat

    2018-01-05 07:47:20

    direct lender payday loans payday loans direct lender advance cash payday loan [url=https://directlenderpaydayloans.cricket]payday loan companies[/url] cash advance lenders cash advance lenders pay day lenders [url=https://cashadvancelenders.trade]cash advance lenders[/url] payday cash loan easy loans easy fast payday loans [url=https://easyloans.webcam]payday loan direct lender[/url] chat sex chat sex free sex chat [url=https://chatsex.bid]sex chat[/url] loans online bad credit payday loans for bad credit payday bad credit loan [url=https://paydayloansforbadcredit...

  • Assignment Define

    2018-01-05 03:04:35

    essay college essay prompts online homework calendar [url=https://essay.us.org]college essay prompts[/url]...

  • Online Essays

    2018-01-04 23:05:27

    college essay prompts college essays college essay [url=https://collegeessays.us.com]college essays[/url]...

  • Williamboymn

    2018-01-04 22:44:09

    http://www.kniphuuskevenlo.nl/template/inc_default/article.php?show=19-Cialis-20-Mg-Ervaringen,Cialis-5-Mg-Reviews,Cialis-Kopen-Online.html]Cialis 20 Mg Ervaringen[/url] Look over older email messages and comment boards to find suggestions for new articles. Change each and every query you ever resolved in an email into articles on the webpage. Understand that how you can improve search engine results is usually to continuously create new posts. Your e-mails most likely offer a good amount of subjects that viewers need to know about...

  • Michaelinsib

    2018-01-04 20:14:30

    How Much DoesSavgannahCatCost- in 2017 Your browser indicates if you've visiited this link . Why DoCatsKnead? YourCatThinks You're a GiantCatSays ... Your browser indicates if you've visited this link . [url=http://old-age-cat-problems.cf/cat-teacher/cat-urine-off-furniture-59.html]Cat urine off furniture[/url] [url=http://old-age-cat-problems.cf/cats-at-home/17-how-to-get-rid-of-cat-urine-odour.html]How to get rid of cat urine odour[/url] Is your dog sick? Here you’ll find a comprehensive list of canine diseases and KeepFeralCatsOut of Your Yard - Safely and Easily Yourbrowser indicates if yo'uve visited this link...

  • Jamescat

    2018-01-04 18:02:20

    college essay prompts argument essay college essay prompts [url=https://collegeessayprompts.trade]essay writing service[/url] college essay writing services research paper proposal research report [url=https://researchpaperproposal.trade]need help with math homework[/url] free webcam sex chat free webcam sex free sex webcam [url=https://freewebcamsex.stream]free sex webcam[/url] research essay dissertation review service research paper [url=https://researchessay.bid]buy custom research papers[/url] college essay prompts college essay writer writing my essay [url=https://collegeessaywriter...

  • Homework Help Online

    2018-01-04 17:13:24

    writing a research paper thesis writing my paper writing my paper [url=https://essaywritingservice.us.org]writing my paper[/url]...