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

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

  • Spotloan

    2018-01-31 10:34:51

    bad credit personal loans loan online personal loans [url=https://personalloans.us.org]personal loans[/url]...

  • Jamescat

    2018-01-31 04:32:11

    payday loans loans quick loans [url=https://quickloans.trade]quick loan[/url] adult cam sites nude chats free webcam porn [url=https://adultcamsites.trade]adult webcam sites[/url] webcam slut webcam sluts webcam sluts [url=https://webcammasturbation.stream]webcam dildo[/url] same day payday loans online online payday lenders same day payday loans online [url=https://samedaypaydayloansonline.bid]pay day loan[/url]...

  • WilliamRow

    2018-01-30 22:33:29

    porn sex with young children [url=http://sex-by.ru/]porn sex with animals[/url]...

  • Jamescat

    2018-01-30 20:43:55

    payday cash advances same day payday loans online same day payday loans online [url=https://samedaypaydayloansonline.bid]same day payday loans online[/url] school papers pay to do my homework research papers [url=https://schoolpapers.trade]school papers[/url] pussy cam free sex chats free bbw webcams [url=https://freewebcamsex.stream]free sex web cams[/url] free adult cam chat web cam adult adult cam sites [url=https://adultcamsites.trade]online sex video chat[/url]...

  • Write College Essay

    2018-01-30 18:52:36

    best college entrance essay essay writer essay maker [url=https://essaywriter.us.com]essay writing skill[/url]...

  • DonaldLep

    2018-01-30 16:24:21

    Внешний облик Вашего дома, дачи или коттеджа буквально преобразится, если вы выберете качественные панели для отделки. Любое жилое пространство приобретет по-настоящему благородный и дорогой вид, если Вы вложите немного времени и денежных средств на данные манипуляции, подробнее об этом читайте на сайте [url=http://montazhnik02.ru]montazhnik02.ru[/url]...

  • Direct Lender Loans

    2018-01-30 15:49:04

    payday loans sacramento advance payday loan payday advance [url=https://paydayadvance.us.com]fast cash advance[/url]...

  • Spotloan

    2018-01-30 13:38:32

    cheap personal loans loan from best personal loans [url=https://personalloansonline.us.org]online personal loans[/url]...

  • Jamescat

    2018-01-30 06:45:28

    argumentative essays argument essay essay writing service [url=https://collegeessayprompts.trade]college essay[/url] payday advance loans loan money loan [url=https://moneyloan.trade]payday loans bad credit[/url] cheap research papers write my paper write my paper for me [url=https://writeapaper.stream]term paper[/url] research paper abstract research essay help homework math [url=https://researchpaperproposal.trade]pay it forward assignment[/url] payday loan direct lender direct lender payday loans cash payday loans online [url=https://directlenderpaydayloans...

  • Jamescat

    2018-01-30 05:50:50

    easy online payday loans easy online payday loans speedy cash [url=https://easyonlinepaydayloans.bid]short term payday loan[/url] essay corrector pay for assignments australia college essay writing help [url=https://illustrationessay.trade]essay corrector[/url] online payday loans instant approval fast payday loan guaranteed payday loans [url=https://smallpaydayloans.bid]small online payday loans[/url] check into cash online payday loans for bad credit best payday loans [url=https://paydayloansforbadcredit...