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

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

  • Kennethrig

    2017-04-10 23:16:22

    wh0cd102935 [url=http://clonidineonline.review/]clonidine 0.1 mg tab purepac[/url] [url=http://nexium2015.top/]nexium[/url] [url=http://buybuspar2017.us/]buspar[/url] [url=http://robaxin2011.top/]robaxin[/url] [url=http://buyzithromax10.us/]buy zithromax[/url]...

  • CharlesHoups

    2017-04-10 22:04:59

    wh0cd408781 [url=http://rocaltrol.top/]rocaltrol[/url]...

  • Kennethrig

    2017-04-10 21:19:57

    wh0cd70970 [url=http://buyelimite12.top/]elimite[/url] [url=http://proscaronline.review/]proscar drug[/url] [url=http://vardenafil4.us/]vardenafil[/url] [url=http://nexium2015.top/]price of nexium[/url] [url=http://tadalafil911.top/]view[/url]...

  • Alfredpal

    2017-04-10 19:43:48

    wh0cd824357 [url=http://trecator.top/]trecator online[/url]...

  • Bennydip

    2017-04-10 18:08:13

    wh0cd25201 [url=http://medrol4.top/]medrol[/url] [url=http://tadacip3.us/]tadacip[/url] [url=http://indocin100.top/]indocin[/url] [url=http://buyprednisolone2016.top/]buy prednisolone[/url]...

  • Peterpaw

    2017-04-10 09:55:03

    As opposed to outsourcing web page design, figure out how to try it for yourself. Even though it might appear overly technical in the beginning, you can actually grasp as soon as you get the hang of this. The subsequent steps will help you get going. Avoid useless scripts. Scripts like counters and date/time scripts don't really serve any purpose, and as they are all JavaScript, may add a couple of kilobytes towards the page's file size. Removing these elements also frees up space on the homepage...

  • KennethCed

    2017-04-09 19:55:02

    [url=http://duirmee.me]January 16, 2017 the objectivity and rationality of morality essay[/url] [url=http://otraimade.me]How to write a college application essay about yourself[/url] [url=http://yheze.me]My journey as a writer essay[/url]...

  • Enriquewew

    2017-04-09 10:31:44

    Здравствуйте! Класный у вас сайт Нашел прикольные сервера Minecraft на этом сайте: http://serveracss.net/ : [url=http://serveracss.net/game/cs] делаем сервер кс 1 6 [/url] [url=http://serveracss.net/game/csgo] сервера майнкрафт 1 11 с кс го [/url] [url=http://serveracss.net/game/source] мониторинг серверов css v34 deathmatch [/url] http://serveracss.net/server_info/91.230.211.11:37018/...

  • Greggher

    2017-04-09 07:07:35

    We are glad to see you in our midst Fuck me like a slut and cum on my face my nickname (Margarita34) [url=http://tourspaine.ru/?u=4cl82kk&o=8t4kazw&t=] >[/url] erikaparty.top/?u=4cl82kk&o=8t4kazw&t= [url=http://tourspaine.ru/?u=4cl82kk&o=8t4kazw&t=][img]http://img-host.org.ua/thumbs/582c39a8cc96b.jpg[/img][/url]...

  • Briancek

    2017-04-09 04:02:49

    [url=http://love.mr2.space/][img]https://encrypted-tbn3.gstatic.com/images?q=tbn:ANd9GcRwr-ctUm8aRjWNAMDcslrSnubY1sjsZHhBJtJZaLtTvVImGGK2ww[/img][/url] Теперь переходим к третьему этапу [URL=http://love.noov.ru]работа сочи[/URL] знакомства без регистрации бесплатно к...