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

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

Коментарi

  • Genarohen

    2018-04-01 18:34:26

    http://bit.ly/2t9Dwo3 InFit Drive - предтренировочный массажный крем, содержащий активные растительные компоненты, для повышения эффективности занятий спортом и фитнесом. Биокомпоненты крема InFit Drive способствуют подготовке организма к физическим нагрузкам, защищают мышцы от растяжения и микротравм, помогают улучшить силовые показатели, выносливость, создают условия для наращивания мышечной массы за счет усиления кровоснабжения мышечных волокон. Препятствует возникновению растяжек. InFit Up -...

  • RichardSTemo

    2018-03-30 07:25:40

    РАСПРОДАЖА БРЕНДОВЫХ ЧАСОВ. СКИДКА ДО 50% НА ВЕСЬ КАТАЛОГ! НАЖМИТЕ НА ССЫЛКУ, ЧТОБЫ УЗНАТЬ О НИХ ПОДРОБНЕЕ http://bit.ly/2H01Jk8 распродажа брендовых мужских часов Скидка до 50% =Mark=...

  • DonaldSwada

    2018-03-30 03:10:07

    Эффективное продвижение в интернете. чем собирать базу для allsubmitter [url=http://bit.ly/2yvpbEy]xrumer базы досок[/url]...

  • AndrewPam

    2018-03-29 16:54:08

    honest resource [url=https://mobporno.org/]http://mobporno.org/[/url] - adult porn tube, xhamster porn tube, all porn tube....

  • RichardSTemo

    2018-03-28 14:34:08

    РАСПРОДАЖА БРЕНДОВЫХ ЧАСОВ. СКИДКА ДО 50% НА ВЕСЬ КАТАЛОГ! НАЖМИТЕ НА ССЫЛКУ, ЧТОБЫ УЗНАТЬ О НИХ ПОДРОБНЕЕ http://bit.ly/2tx28ar часы мужские наручные брендовые из швейцарии Оплата часов после получения на руки =Mark=...

  • DonaldSwada

    2018-03-28 07:21:26

    Эффективное продвижение в интернете. allsubmitter базы торрент [url=http://bit.ly/2yvpbEy]xrumer базы форумов[/url]...

  • Arnoldlop

    2018-03-26 16:19:13

    [url=http://www.agenor.com.ar/admin/class.asp?p=314]Levitra Pills[/url] Cease each of the terrible actions you will be taking part in should you wish to get over your major depression. Once you hang out weeping, complaining or discussing unfortunate sensations, men and women in your lifetime will answer with sympathy. While this can experience excellent, it is only hurting you purchase offering you a reward as being depressed. Talk about your delights and beneficial things happening in your lifetime alternatively...

  • DonaldSwada

    2018-03-26 13:41:04

    Эффективное продвижение в интернете. скачать базы для allsubmitter стоимость продвижения сайта...

  • Michaelnen

    2018-03-24 09:28:56

    Romantic Piano by Andrew_Studio | AudioJungle http://workle.website/4d https://audiojungle.net/item/cinematic-trailer/20815683?ref=MomentumOfMelody https://audiojungle.net/user/momentumofmelody/portfolio?ref=MomentumOfMelody https://audiojungle.net/user/ie_sound/portfolio?ref=IE_Sound https://audiojungle.net/user/elijah_studio/portfolio?ref=Elijah_Studio https://audiojungle.net/user/commercial_music/portfolio?ref=Commercial_Music...

  • codyet69

    2018-03-15 15:24:10

    Modern net programme: http://tracy.blogs.telrock.org...