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

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

  • COHommabofGow

    2017-01-09 07:02:55

    Автоматическое продвижение сайта, интернет магазина. Разместил и забыл. [url=http://site-agregator.ru/]раскрутка интернет магазина[/url] [url=http://site-agregator.ru/]раскрутка сайта недорого[/url] [url=http://site-agregator.ru/]белая раскрутка сайта[/url] [url=http://radikal.ru][img]http://s02.radikal.ru/i175/1701/0b/27247215ad13.jpg[/img][/url] Регистрация Сайта В Каталогах http://pultseo.ru - Прогон По Форумам [url=http://radikal.ru][img]http://s11.radikal.ru/i183/1701/f7/31bbdda320a1.png[/img][/url]...

  • JulianChign

    2017-01-09 06:25:43

    http://checkthis.com/g6j8 http://h.hatena.ne.jp/fogaserredot8/81796182190396277 https://www.pinterest.com/pin/852165560711391218/ http://www.ustream.tv/channel/XNQ29AvEHEd http://blogs.rediff.com/meersdescricapoha/2016/12/25/new_40_ways_to_please_a_good_man_adquirir_barato_sans_inscription_noble_nook_znizka_linux_comentarios/ halpa ilman maksua Mac OS X COOL-ER Classic chenchenpichen...

  • mollienn16

    2017-01-08 09:49:48

    Sissy tales blogv skirts on sale online skirts with tops bridsmaid dresses http://sissyabuse.blogporn.in/?post.angelica marttel maides dog leads collars scholarships for feminist hypnosis downloads free mp3 hd mature women kush seed bank sissy prissy dresses put tampon in...

  • weroop

    2017-01-07 15:32:33

    Flagi & flagshtoki, мне для флага из бумаги потребавались флагштоки, и тут меня направили на интересный сайт [url=http://www.allpos.ru/index.php?categoryID=580&category_slug=flagshtoki-nastennye] на сайте предлагается к продаже различные флагштоки и держатели для флагов и флажков, а также других держателей для POS-материалов, в том числе и для плакатов и ценников....

  • Briannof

    2017-01-06 23:03:34

    Рецензия на пилотный эпизод сериала «Изгоняющий дьявола» - http://good-torrent.ru/...

  • ZacharyRof

    2017-01-06 21:10:39

    Blog about using software package Xrumer, Hrefer, SocPlugin, BlogsPlugin. Base and modifications to Xrumer. Ways to earn mone. [url=http://xrumerarticles.blogspot.com/2013/06/phpfox.html]Xrumer Articles[/url]...

  • LindaJah

    2017-01-06 07:46:54

    Hi! Where I can get the XRumer 16.0 for free? It's the best software for SEO and SMM. New 2017 release is perfect!...

  • bazadannix

    2017-01-06 01:35:50

    Продажа баз данных, список можно посмотреть здесь https://yadi.sk/i/FHxvB-wF36SMyF За ценой пишите bazad@protonmail.com...

  • Viktargy

    2017-01-05 23:28:13

    Hello. And Bye....

  • Aleksansudge

    2017-01-05 12:40:14

    Очень долго искал информацию в инете, пока не нашел вот этот сайт Ремонт преобразователей частоты Санкт-Петербург Для моих знакомых эта информация оказалась очень полезной. Всем пока!...