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

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

    2018-02-08 00:57:51

    college essay writing service essay writing services writing service [url=https://essaywritingservices.us.org]professional essay writing services[/url]...

  • Buying Essay

    2018-02-08 00:27:32

    college essays dealing with death write my essay for me essays [url=https://essays.us.com]essays[/url]...

  • Assignments Help

    2018-02-07 23:58:18

    paying someone to write a paper proofreading services writing service [url=https://essaywritingservices.us.org]help write my biography[/url]...

  • Assignment Notebooks

    2018-02-07 18:24:20

    essay helper essay writer essay writer [url=https://essaywriter.us.com]essay writer[/url]...

  • Best Online Loans

    2018-02-07 18:20:05

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

  • Jamescat

    2018-02-07 13:18:50

    scholarship essay doing a literature review in health and social care buy essay [url=https://scholarshipessay.science]write essay[/url] online fucking free cam porn free cam porn [url=https://freecamporn.science]free cam porn[/url] quick loans quick loans loans [url=https://quickloans.cricket]quick loan[/url] direct lender payday loans online direct lender payday loan companies [url=https://samedaypaydayloansonline.cricket]easy online payday loans[/url] payday advance loan best payday loan online instant online payday loan [url=https://onlinepaydayadvanceloan...

  • Jamescat

    2018-02-07 08:43:02

    hot webcam girls hot webcam girls amateur webcam girls [url=https://hotwebcamgirls.science]hot webcam girls[/url] best payday loan best payday loans best payday loan online [url=https://bestpaydayloan.cricket]payday advance loan[/url] payday loan direct lender no credit check loans payday loan direct lenders [url=https://paydayloandirectlender.webcam]payday loan direct lender[/url]...

  • Payday Express

    2018-02-07 06:02:05

    actual payday loan lenders best personal loans personal loans online [url=https://personalloansonline.us.org]unsecured personal loans[/url]...

  • Essay Online

    2018-02-07 04:21:06

    term paper cheap term papers term paper [url=https://termpaper.us.com]term paper help[/url]...

  • Jamescat

    2018-02-07 00:22:49

    homework help tudors writing introduction for research paper math homework online [url=https://researchessay.cricket]homework help australia[/url] direct lenders payday loans online payday loan instant approval easy online payday loans [url=https://fastpaydayloans.cricket]fast payday loans[/url] online payday loan instant approval fast online payday loans payday loans online [url=https://easyonlinepaydayloans.science]fast online payday loans[/url] live porn webcam live webcam porn live porn cams [url=https://liveporncams...