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

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

  • Jamescat

    2017-10-21 02:26:07

    adult cam free sex chat cam girl [url=https://webcamsex.us.com]webcam sex[/url]...

  • Jamescat

    2017-10-21 01:25:36

    write my essay write my thesis essay online [url=https://writemyessay.us.com]WriteMyEssay.us.com[/url]...

  • Jamescat

    2017-10-20 22:50:37

    writing essay for college buy essay online cheap buy essays online [url=https://buyessay.us.com]buy an essay online cheap[/url]...

  • Jamescat

    2017-10-17 12:45:56

    free sex chat cam live porn sex chat live cam [url=https://sexchat.us.com]sex chat room[/url]...

  • Richardgesty

    2017-10-17 11:05:37

    [url=http://iphone-center.msk.ru/remont-iphone/iphone-6/]не включается айфон 6 что делать[/url] - замена аккумулятора iphone 4, замена стекла на айфоне выезд мастера....

  • Paper Writer Free

    2017-10-17 10:51:17

    more essay writing service essay writing service [url=https://essaywritingservices.us.com]essays writing services[/url]...

  • Buy Essay Online

    2017-10-17 04:17:23

    http://WriteMyEssay.us.com/ write my essay websites that write essays for you [url=https://writemyessay.us.com]paper writer[/url]...

  • Jamescat

    2017-10-17 04:14:13

    write my essay for me custom essay write my essay [url=https://writemyessay.us.com]write my essay[/url]...

  • Jamesfrorn

    2017-10-17 03:55:09

    [url=http://www.hummer-h5.de/nike-free-4.0-flyknit-damen-reduziert-092.htm]Nike Free 4.0 Flyknit Damen Reduziert[/url] If you are on the go swimming group in high school graduation or university, or else you much like to work with the swimming pool a lot, avoid keeping yourself marine a long time. Washing the hair in water for a long time can result in dryness and hair thinning. Putting on a fishing cap can help. Work with a top quality conditioner to assist to guard your hair. [img]https://www.anti-spam...

  • DanielStaro

    2017-10-17 02:47:00

    Ламинин - Laminine LPGN спасает от Любой болезни, если не опоздать. Пить надо много. Дорого. Цену можно понизить втрое. Скайп evg7773 [url=http://www.1541.ru/cms/part.php]Лучшие программы для рекламы и раскрутки в интернете[/url] [url=http://golden-mines.biz/?i=444768]Golden Mine - Игра с Заработком с бесплатным входом[/url]...