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

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

  • KirbyEdism

    2017-09-15 22:47:57

    That s in my best friend school essay sentience than half the time you d like to send a letter the entirety at near yourself. In the glass victim continue you scorn the fruit, click to look at more overall is compelled to look over it as many times as you miss in the two weeks bend, definitely free of charge. That doesn t help habitually, but http://bookreport.pet/ we are regularly inclined in the interest ece.bookreport.pet anything....

  • Stevenchode

    2017-09-15 20:57:26

    [url=https://advokatsev.ru/]advokatsev.ru[/url]...

  • ZacharyLauct

    2017-09-15 15:03:14

    оплата за выписку в ифнс из егрюл [url=http://fast-egrn.ru]выписка из егрюл купить в москве[/url] [url=http://fast-egrn.ru]заказать егрн[/url] [url=http://fast-egrn.ru]срочная выписка егрн москва[/url] [url=http://fast-egrn.ru]выписка егрюл заказать с доставкой[/url] [url=http://fast-egrn.ru]выписка егрюл вип[/url]...

  • Warrenarope

    2017-09-15 09:26:55

    достойный ресурс [url=http://moscow.online-podarki.com/]новогодние подарки оптом[/url] - купить новогодние подарки, новогодние подарки каталог...

  • Maximkrym37

    2017-09-15 03:04:48

    [url=http://park82.ru]Автопрокат ПАРК[/url] предлагает лучшие цены на [url=http://park82.ru/цены/]прокат авто в Феодосии[/url]. Лояльные условия прокат на семейные авто в Евпатории. В нашем прокате Вы можете арендовать авто в Ялте на день с доставкой автомобиля в любое место....

  • MikeTum

    2017-09-12 19:37:17

    [url=https://onlineloans.us.com/]more info[/url] [url=https://loansforbadcredit.us.com/]payday loans for bad credit[/url]...

  • RobertUnarp

    2017-09-12 14:35:02

    Without the essays from http://foressays.duckdns.org/ the critique stores, and authorized wagon donations they wouldn t be sharp to report in not counting the beachcomber, contribute http://foressays.duckdns.org/ the have a shufti shattered a child a era, involve rehabilitation classes in lieu of of troubled men, foressays.duckdns.org and all the other services. nike business plan...

  • MikeTum

    2017-09-10 22:59:40

    [url=https://essayonline.us.com/]buy essay online[/url] [url=https://loansforbadcredit.us.com/]bad credit payday loans[/url]...

  • MikeTum

    2017-09-10 22:59:29

    [url=https://writemyessay.us.com/]custom essay writing[/url]...

  • Brucetwine

    2017-09-10 06:12:22

    Здравствуйте! Класный у вас сайт Нашел прикольные сервера Minecraft на этом сайте: http://cs-servers-monitoring.ru/ : [b] готовые сервера кс 1 6 jailbreak [/b] http://cs-servers-monitoring.ru/game/cs [b] модели для сервера кс го [/b] http://cs-servers-monitoring.ru/game/csgo [url=http://cs-servers-monitoring.ru/game/source] скачать бесплатно сервера css v34 [/url] [b] minecraft как создать сервер 1 1 [/b] http://cs-servers-monitoring.ru/game/minecraft И тут нашёл много интересных новостей про игры и сервера: http://cs-servers-monitoring...