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

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

Коментарi

  • Louisinsib

    2017-11-02 16:16:06

    Getcaturineodor out withNature'sMiracle ? Yahoo Answers Your browser indicates if you've visited this link . HowtoRemoveCatUrine Smell (with Pictures) - wikiHow Your browser indicates if you've visited this link If you can'tgetthe smell orstainoutofanitem, ... Remove Liquids, Diarrhea,Catand Dog Urine fromCarpet .Howto. RemoveCatSpray orPeefrom a Leather Couch. /Remove-Cat-Urine-Smell More results. [url=http://839gituviapa9i.soup.io/]Dog training book in bengali[/url] [url=http://riliti-ta2m.soup...

  • Henryacene

    2017-11-02 13:30:59

    Грузоперевозки по Москве и Московской области [url=http://samgruzshelkovo.ru/gruzoperevozki-medvezhi-ozera-novyy-gorodok-nedorogo]Грузоперевозки Медвежьи Озёра (новый городок ) недорого[/url]...

  • Jamescat

    2017-11-02 13:20:11

    payday loans online online loans payday loans online [url=https://onlineloans.us.com/]payday loans online[/url]...

  • Jamescat

    2017-11-02 12:18:45

    essay writing services review essay writing service australia essay writing service [url=https://essaywritingservices.us.com]essay writing service toronto[/url]...

  • Jamescat

    2017-11-02 03:54:44

    https://onlineloans.us.com direct lenders for bad credit Continue [url=https://onlineloans.us.com/]https://OnlineLoans.us.com/[/url]...

  • Jamescat

    2017-11-02 03:30:49

    our website payday loans online payday loans online direct lenders only [url=https://paydayloans.us.org/]guaranteed payday loans online[/url]...

  • Joecat

    2017-11-01 20:47:40

    bad credit loans no credit check same day cash loans loan company [url=https://shorttermloans.us.com]fast payday loans[/url]...

  • Jamescat

    2017-11-01 19:13:56

    writing a college admissions essay buy essay online help with college essay [url=https://buyessays.us.com]buy essay[/url]...

  • Direct Lender Loans

    2017-11-01 17:52:45

    payday loans quick cash cash loan fast quick cash loans today [url=https://quickloans.us.com]quick payday loans of newark[/url]...

  • Joecat

    2017-11-01 17:09:53

    webcam sex free xxx webcams free sexy webcams [url=https://webcamsex.us.com]free nude cams[/url]...