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

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

  • Custom Essays

    2018-01-13 00:46:39

    argumentative essay college essay prompts essay writer [url=https://essay.us.org]college essay[/url]...

  • Best Payday Loan

    2018-01-12 22:49:13

    payday payday advance loan cash loans online [url=https://payday.us.com]a payday loan[/url]...

  • Direct Lenders

    2018-01-12 21:56:08

    online payday advance advance cash payday loan online payday loan application [url=https://cashadvance.us.org]online payday advance[/url]...

  • Janecat

    2018-01-12 21:17:12

    fiesta auto insurance compare car insurance cheapest car insurance quotes comparison [url=https://comparecarinsurance.us.com]compare car insurance[/url]...

  • Jamescat

    2018-01-12 21:12:31

    webcam pussy wife on webcam bbw webcams [url=https://webcampussy.webcam]wife on webcam[/url] what is a term paper what is a term paper writing a proposal for a research paper [url=https://researchessay.cricket]research essay[/url] online payday loans for bad credit direct loan lenders faxless payday loan same day [url=https://loansonlinebadcredit.webcam]loans online bad credit[/url] easy loans online payday loans for bad credit payday loans online direct lender [url=https://onlinepaydayloansforbadcredit...

  • Speedy Cash

    2018-01-12 19:34:52

    online payday loan lender payday advance loan direct lenders for bad credit [url=https://payday.us.com]payday[/url]...

  • JamesLooro

    2018-01-12 19:23:51

    [url=http://www.societe.nu/mbt-shoes-909.html]Mbt Shoes[/url] Having a pillow along with you on long brings can help to ease back discomfort. By putting a soft cushion between your small of the rear and the chair of the auto, you are creating a padded support that will assist you preserve appropriate posture when driving a vehicle these extended hours and therefore assistance to decrease back problems. [img]https://www.d-frax.nl/images/d-f2/3288-reebok-royal-ec-ride-gfx.jpg[/img] Consider purchasing pearl jewelry...

  • Janecat

    2018-01-12 19:18:56

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

  • Pamcat

    2018-01-12 18:56:04

    payday loan online fastest payday loan direct lenders [url=https://fastestpaydayloan.stream]fastest payday loan[/url] webcams porn free xxx webcams adult webcam [url=https://freexxxwebcams.webcam]porn webcams[/url] easy approval payday loans online payday loans small payday loans [url=https://smallpaydayloans.cricket]online payday loans[/url] instant online loans instant payday loans instant online loans [url=https://instantpaydayloans.webcam]instant online loans[/url] payday loan direct lender fast loans no credit check payday loans direct lender [url=https://paydayloandirectlender...

  • Jamescat

    2018-01-12 13:56:01

    advance cash payday loan same day payday loans online same day payday loans online [url=https://samedayloans.cricket]pay day loans[/url] australian assignment help essay writing service dissertation writing [url=https://essaywriting.stream]writing my essay[/url] speedy cash payday loans online online payday loan instant approval online payday loan lender [url=https://onlinepaydayloaninstantapproval.loan]pay day loans[/url] cash loans no credit check direct lender payday loans guaranteed payday loans [url=https://smallpaydayloans...