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

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

  • Loan

    2017-11-21 15:17:06

    quick loans loans quick cash quick easy loans [url=https://quickloans.us.com]quick loans with bad credit[/url]...

  • Pamcat

    2017-11-21 12:29:56

    bad credit payday loans direct lenders online payday loans direct lenders direct lenders payday loans [url=https://paydayloansdirectlendersonly.webcam]cash payday loans online[/url] no credit check loans loans online bad credit payday loan companies [url=https://loansonlinebadcredit.trade]loans online bad credit[/url] direct lender loans direct lenders of loans same day loan [url=https://directlenderloans.bid]direct lenders of loans[/url]...

  • Pamcat

    2017-11-21 12:04:45

    advance payday loans online small online payday loans advance payday loans online [url=https://smallonlinepaydayloans.stream]small online payday loans[/url] dissertation literature review help research papers do my math class [url=https://schoolpapers.stream]successful college essay[/url] advance payday loans instant payday loans bad credit [url=https://instantpaydayloans.stream]instant payday loans[/url]...

  • Getting A Loan

    2017-11-21 06:15:17

    personal loans for bad credit in nj payday loans bad credit fast personal loan [url=https://badcreditpersonalloans.us.com]bad credit loans direct lenders only[/url]...

  • Pamcat

    2017-11-21 03:49:20

    adult webcam sites amateur webcam girls free live sex shows [url=https://hotwebcamgirls.trade]chat porn[/url] college essay college essay college paper [url=https://collegepaper.science]college essay[/url] small online payday loans advance payday loans online small online payday loans [url=https://smallonlinepaydayloans.stream]advance payday loans online[/url] online payday loans best payday loans online the best online payday loans [url=https://thebestonlinepaydayloans.stream]fastest payday loan[/url] buy essays admission essay help buy essays [url=https://essayshelp...

  • Pamcat

    2017-11-21 01:05:32

    illustration essay illustration essay term paper formats [url=https://illustrationessay.webcam]illustration essay[/url] essay writing for college students buy essays essay writing website [url=https://essayshelp.cricket]essays help[/url] online payday advance loan online payday advance loan payday loans [url=https://onlinepaydayadvanceloan.science]payday advance[/url]...

  • JasonCaf

    2017-11-20 19:58:34

    важнецкий сайт http://legal-rc.shop/...

  • Pamcat

    2017-11-20 19:25:25

    payday instant payday loans bad credit payday loans direct lenders [url=https://instantonlineloans.science]instant online loans[/url] same day loan direct lender payday loans payday loans direct lender [url=https://directlenderloans.trade]payday loans online direct lender[/url] xxx webcams hot webcam girls free webcam sluts [url=https://hotwebcamgirls.trade]hot webcam girls[/url] college paper finance dissertation help my posse dont do homework [url=https://collegepaper.science]college paper[/ur...

  • DanielDer

    2017-11-20 14:09:48

    [url=https://mosspravka.org/spravka-vyzov-na-sessiyu]справка на работу о сдаче сессии[/url] - выписной эпикриз, медицинская форма 086....

  • Instant Online Loans

    2017-11-20 09:06:40

    short term loans online express loans short term loans no credit check [url=https://shorttermloans.us.com]loans short term unsecured[/url]...