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

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

  • Buy Essay Cheap

    2018-01-22 11:50:44

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

  • DonaldJep

    2018-01-22 11:15:02

    Первое в России инвалидное электрокресло, управляемое силой мысли, прошло испытания в Москве, сообщает «Российская газета». Главная составляющая — нейрогарнитура (эластичная шапка с электродами). Читайте об этом подробнее на сайте [url=http://tvoi-noski.ru]tvoi-noski.ru[/url]...

  • Spotloan

    2018-01-22 10:50:29

    loan cash cash loans get cash now [url=http://cashloans.us.com]cash lenders[/url]...

  • Direct Lenders

    2018-01-22 10:01:40

    quick loans no credit check loan no credit check money fast for kids [url=https://loansnocreditcheck.us.com]personal loans no credit check[/url]...

  • Best Online Loans

    2018-01-22 09:29:49

    fast cash advance payday advance payday advance [url=http://paydayadvance.us.com]mobile loans[/url]...

  • Online Essays

    2018-01-22 08:46:59

    writing an argumentative essay argument essay an argumentative essay [url=https://argumentessay.us.com]argument essay[/url]...

  • Essays Writing

    2018-01-22 06:21:03

    essays writing the essay nyu essays [url=https://essays.us.com]essay writing about internet[/url]...

  • Jamescat

    2018-01-22 05:06:40

    payday express money loan money loan [url=https://moneyloan.trade]payday faxless fast cash loan[/url] college application essay help with writing a research paper college application essay [url=https://collegeapplicationessay.bid]homework helpers chemistry[/url] paper writing service research paper proposal research paper proposal [url=https://researchpaperproposal.trade]research paper proposal[/url]...

  • Jamescat

    2018-01-22 03:24:37

    bad credit payday loans direct lenders payday loan lenders bad credit payday loans [url=https://loansonlinebadcredit.webcam]loans online bad credit[/url] webcams porn webcams porn free xxx webcams [url=https://freexxxwebcams.webcam]webcams porn[/url] writing my essay essay writing essay writing service [url=https://essaywriting.stream]help in assignment writing[/url]...

  • Cash Loan

    2018-01-22 02:51:53

    online loan application money fast for kids online loan [url=http://onlineloan.us.com]loans over the phone[/url]...