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

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

Коментарi

  • WillieHor

    2017-02-06 05:14:06

    Alex Price, Your Real Estate Agent in Toronto. Homes and condo for Sale [url=http://aprice.ca/]More info![/url]...

  • RaymondOvema

    2017-02-05 23:44:43

    excellent resource [url=http://xnxx-love.com]http://xnxx-love.com[/url]...

  • Davidwax

    2017-02-05 22:28:55

    [b][url=https://goo.gl/j4OgD2]Лучший PowerBank на солнечных батареях[/url][/b] POWER BANK 20000 mAh НА СОЛНЕЧНЫХ БАТАРЕЯХ Заряжается от солнца и сети 220V До 10 полных зарядок гаджетов Реализуем по ОПТОВЫМ ЦЕНАМ Универсальное зарядное устройство Может заряжать сразу 2 гаджета Емкость батареи 20 000 mah [url=https://goo.gl/j4OgD2][b]Посмотреть поробнее[/b][/url] - https://goo.gl/j4OgD2...

  • RichardKig

    2017-02-05 17:11:02

    Рекомендую лучшие портмоне – кошельки которые есть на сегодняшний день. [url=https://goo.gl/AlMvuL][b]Портмоне Bailerry[/b][/url] Портмоне-клатч ручной работы. Прекрасный подарок для ценителя хороших вещей. [b][url=https://goo.gl/AlMvuL]Посмотреть подробнее портмоне Bailerry[/url][/b] [url=https://goo.gl/G7HOrV][b]Портмоне CarWallet[/b][/url] Автопортмоне из натуральной кожи. Практичность и вместимость. [b][url=https://goo.gl/G7HOrV]Посмотреть подробнее портмоне CarWallet[/url][/b] [url=https://goo...

  • Michaelmib

    2017-02-05 16:03:54

    [b][url=]Белоснежная улыбказ за 7 дней[/url][/b] [b]Инновационная система отбеливания зубов в домашних условиях. Результат уже через 3 дня[/b] Это абсолютно безопасно и не влияет на чувствительность эмали зубов! Отбеливать зубы можно в любом месте,в любое время. Простой и доступный всем процесс отбеливания! Всё что нужно - это выделить себе несколько минут свободного времени. [b][url=]Узнать подробнее[/url][/b] - https://goo.gl/t1UIW7...

  • DevakAlata

    2017-02-05 03:54:01

    А, что очень даже интересно,спасибо за информацию. http://allix.ru...

  • MSVCP

    2017-02-03 17:13:24

    msvcp140.dll путь [url=http://checkthis.com/msvcp140-dll]выдает ошибку msvcp140.dll[/url] msvcp140.dll download...

  • Looking

    2017-02-03 12:01:08

    Looking: http://urlx.ru/IWVi (!) Here I and all my friends! How do you like me?)) [url=http://urlx.ru/IWVi][img]http://savepic.ru/12741863m.jpg[/img][/url]...

  • Dariynakab

    2017-02-02 22:53:41

    Ялта Крым "Аренда Дома" Крым Ялта Обзор Отеля "Вилла Мишель" Крым Ялта Обзор Отеля "Mriya Resort & Spa" Крым Ялта Обзор Отеля "Ялта Интурист" Бесплатная реклама в Крыму КАНАЛ ЮТУБ ВСЕ О КРЫМЕ...

  • Nelithri99g

    2017-02-01 05:05:35

    [url=http://www.linki-sponsorowane1.pl/]kampanie adwords[/url] Discovering how to optimize your site is important to success. It will require patience and a great deal of knowledge to acquire great results. These paragraphs offer concrete advice concerning how to beat the pros at their very own game. To avoid duplicate content clogging up search engines like google, you have to be certain the various search engines know precisely which pages to index once you create and upload new pages. You always need to delete that old pages completely from your server and make certain that you're only indexing the most recent and many relevant content...