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

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

Коментарi

  • Cash Advance

    2018-02-02 15:47:00

    payday loans no credit check lenders 2000 payday loan what is a payday loan [url=https://cashadvanceloan.us.com]advance loan[/url]...

  • Payday Loans Online

    2018-02-02 12:19:41

    quick loans 100 approval loans for bad credit loans for bad credit [url=https://loansforbadcredit.us.org]payday loans portland[/url]...

  • AnthonyTot

    2018-02-02 11:55:30

    kmtbxpz http://www.albergodonlorenzo.it/698-miu-miu-nylon-tote.htm http://www.playerpiano.co.uk/balenciaga-silver-bag-367.htm http://www.sobike.fr/omega-seamaster-planet-ocean-600m-co-axial-chronometer-prix-391.html http://www.neo-folk.it/orologi-omega-mantova-552.htm http://www.la-casona-albaida.es/747-reloj-omega-geneve-oro-precio.php [url=http://www.seaworld-kreuzfahrten.de/128-rolex-yachtmaster-rainbow.htm]Rolex Yachtmaster Rainbow[/url] [url=http://www.adidasschoenenkopengoedkoop.nl/135-adidas-superstar-2016-aliexpress...

  • Homework Center

    2018-02-02 11:54:27

    proofreading services essay writing services cheap paper writing service [url=https://essaywritingservices.us.org]proofreading services[/url]...

  • Bad Credit

    2018-02-02 07:54:38

    advance payday loan advance payday loan payday advance [url=https://paydayadvance.us.com]payday advance[/url]...

  • Bad Credit

    2018-02-02 06:40:07

    cash loans cash loans cash loans [url=https://cashloans.us.com]cash loans[/url]...

  • Jamescat

    2018-02-02 06:34:44

    loans online instant approval instant online payday loan best payday loan [url=https://instantonlinepaydayloan.cricket]quick cash loan[/url] common application essay prompts common application essay prompts common application essay prompts [url=https://commonapplicationessayprompts.science]write a college essay[/url] college essay help college essay help college essay help [url=https://collegeapplicationessay.bid]college application essay[/url]...

  • Loan

    2018-02-02 05:36:29

    loans instant approval payday loans instant approval loans instant approval [url=https://loansinstantapproval.us.com]no credit check payday loans instant approval[/url]...

  • Online Loan

    2018-02-02 04:59:13

    loans for bad credit unsecured loans for bad credit loans for bad credit [url=https://loansforbadcredit.us.org]online loans for bad credit[/url]...

  • Online Payday Loan

    2018-02-02 01:34:27

    get cash now direct lenders cash lenders [url=https://cashloans.us.com]need cash now[/url]...