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

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

  • Tiffwop

    2017-01-05 10:53:17

    Real money making!! Make money with just 3 clicks [url=https://goo.gl/wVkOWa]site this[/url]...

  • Kragoslance

    2017-01-05 10:32:55

    [url=https://goo.gl/v3jO09][img]http://bolshe.com.ua/uploads/image-1457900037-742_big.jpg[/img][/url] Приветствую Вас, Уважаемый Друг. Уже не сколько лет мы занимаемся производством новинок музыкального мира. Существует обилие названий этого уникального инструмента. Одни знают его, как глюкофон / happy drum. Что именно представляет собой музыкальный барабан глюкофон? Это музыка, доступная кадому человеку, дарящая ему счастье, успокоение и состояние внутренней гармонии. Сотворить что-то абсолютно уникальное в мире, где все привыкли ориентироваться лишь на интернет и гаджеты довольно сложно...

  • SimbaVitty

    2017-01-04 10:58:41

    [b]stair-life.com.ua - Научим массажу. Поможем заработать[/b] Запишитесь в массажную школу Stair-life если вы хотите быстро и качественно обучиться проводить лечебный массаж У нас есть репутация которой дорожит каждый наш сотрудник Чтобы научится нужна практика. Репутация для нас не просто звук. Для нас она очень важна...

  • WyattInosy

    2017-01-04 06:40:20

    Hello just about all! For this article, I decided to debate skin whitening as well as ideal 5 for you to to pores and skin becoming dark colored. Despite the fact that society normally highlights darkening your skin, there are people who offer while using difficulty of their skin being also evening. So how does just one attempt whitening their skin? Effectively initial, let's take a have a look at the best 5 factors of a darkened over all skin. With that, right here is my record that we have set together through a few decades of groundwork...

  • ByronDom

    2017-01-04 01:36:24

    pornohub вновь стал доступен для России Тысячи видео фильмов ожидают что бы их посмотрели [url=http://new-porno-hub.ru/]new-porno-hub.ru[/url]...

  • Препарат виагра купить

    2017-01-03 20:01:11

    Препарат виагра купить of damaging ones viagra soft Причем беспокоиться о том, что решение виагра дешевая купить станет также бессмысленной тратой средств, не стоит....

  • AarunalSterb

    2017-01-03 11:41:34

    http://metallocherepitsa5.ferumroof.ru/moll/lists-150 http://metallocherepitsa3.ferumroof.ru/shop/list-22 http://metallocherepitsa3.ferumroof.ru/store/c-3 http://metallocherepitsa6.ferumroof.ru/sale/cat-46 http://metallocherepitsa2.ferumroof.ru/market/cats-123 http://drenagh5.ferumtile.ru/catalog/p160 http://drenagh2.ferumtile.ru/product/70-dlia-sadovoi-dorozhki-bordiur http://drenegh1.ferumtile.ru/catalog/l27 http://drenagh9.ferumtile.ru/catalog/c-190 http://drenagh1.ferumtile.ru/catalog/list-167 http://dymnik-gib...

  • StephenTah

    2017-01-03 06:43:34

    watch dogs 2 прохождение на пк прохождение игры watch dogs 2 [url=https://www.youtube.com/watch?v=VEISRS6Ia4Y]watch dogs 2 смотреть прохождение[/url] [url=https://www.youtube.com/watch?v=VEISRS6Ia4Y]watch dogs 1 прохождение[/url] [url=https://www.youtube.com/watch?v=VEISRS6Ia4Y]watch dogs 2 время прохождения[/url] https://www.youtube.com/watch?v=VEISRS6Ia4Y...

  • ksxjkqrn

    2017-01-03 04:54:44

    slop omasex recognizes [url=http://omasex.online]omasex[/url] act http://omasex.online steeper...

  • RobertStelo

    2017-01-03 03:52:55

    Private Russian porno HD video online. Click to View: [url=http://vseotom.ru]Porno HD online[/url] Over +80.000 best porn videos! [url=http://vseotom.ru][img]http://s019.radikal.ru/i626/1701/bc/d50d048f69c2.jpg[/img][/url] [url=http://vseotom.ru]View porno HD online[/url]...