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

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

Коментарi

  • aarp auto insurance

    2018-01-02 23:31:15

    auto insurance quotes thegeneral.com auto insurance motorcycle insurance quotes online comparison [url=https://autoinsurancequotes.us.com]auto insurance quotes[/url]...

  • Pamcat

    2018-01-02 21:04:03

    online payday loan instant approval online payday loan instant approval payday loan no credit check [url=https://onlinepaydayloaninstantapproval.loan]payday loans online[/url] best online payday loans online loans direct lenders loans online bad credit [url=https://loansonlinebadcredit.webcam]loans online bad credit[/url] easy cash payday loan instant online loans payday advance loans [url=https://instantpaydayloans.webcam]instant online loans[/url]...

  • Janecat

    2018-01-02 19:09:59

    car insurance general car insurance car insurance quotes [url=https://carinsurance.us.org]compare auto insurance[/url]...

  • Janecat

    2018-01-02 17:33:02

    buy an essay for college order essay i need help writing my essay [url=https://buyessay.us.com]introduction essay help[/url]...

  • ManuelUrger

    2018-01-02 16:11:53

    porn sex with children [url=https://offshoreleaks.icij.org/stories/cesar-almeyda]gay video porn[/url]...

  • Pamcat

    2018-01-02 14:36:56

    online payday loan lender online loans payday advance loans [url=https://paydayloandirectlender.webcam]payday loan direct lender[/url] fast online payday loans fast payday loans short term payday loan [url=https://fastpaydayloans.cricket]direct lender[/url] best payday loan online best payday loan best payday loan online [url=https://bestpaydayloan.stream]emergency loan no credit check[/url] paper writing writing my paper research paper [url=https://paperwriting.webcam]term paper[/url] payday loan lenders online payday loan application speedy cash payday loans online [url=https://onlinepaydayloanapplication...

  • aarp car insurance

    2018-01-02 14:33:41

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

  • Clintonpex

    2018-01-02 14:11:33

    знатный вебресурс http://secretstore.cc/...

  • aarp car insurance

    2018-01-02 11:35:03

    online car insurance quotes compare car insurance compare car insurance [url=https://carinsurance.us.org]compare car insurance rates[/url]...

  • best car insurance

    2018-01-02 04:11:37

    cheapest car insurance allstate car insurance quote compare car insurance rates [url=https://carinsurance.us.org]cheapest car insurance[/url]...