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

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

  • JamesClild

    2017-08-10 06:35:38

    [url=https://www.slideshare.net/leisasagimecicon873185/drinks-that-increase-blood-flow]https://www.slideshare.net/leisasagimecicon873185/drinks-that-increase-blood-flow[/url] п»їDoes the Penis Enlargement Bible offer practical and feasible solutions for men seeking to gain a little extra size? There’s no doubt that this book is attractive to men not satisfied with their current manhood size, but are the tricks and techniques offered within it truly effective? Some say yes… This is a very sensitive topic, and one that must be approach with great care...

  • Safonovjer

    2017-08-10 02:58:14

    Лекарство силденафил цитрат - http://sildenafil2017.menshealthed.ru Подкупать Виагра, таблетки 50 мг, 12 шт. тариф Действующее материя: Силденафил Покупать Виагра, таблетки мг, 4 шт. цена. Виагра дженерик Силденафил мг (Eregra ) - это средство ради эрекции и потенции. В состав таблеток входят: активное сущность: силденафил (в виде силденафила цитрата) 50 либо мг ; вспомогательные вещества: целлюлоза. Виагра таблетки подкупать, аптека, цена, отзывы, приказ Виагра таблетки покупать в А после один друган отвел меня в сторону и говорит - попробуй покупать Виагру...

  • CHAMPdrect

    2017-08-09 23:45:53

    Бренд Чемпион на Российском рынке появился давно. Те, кто работают на своём участке знают его уже по одному фирменному знаку. Champion это сельская техника которой можно пользоваться во все времена. Большинство из производимой агротехники от Чемпион всесезонна и дополняет себя. Такая техника как: Аэраторы может быть использована в обработки земли. В поливе ваших огородов легко справится такой агрегат от знака Champion как: НАСОСНОЕ ОБОРУДОВАНИЕ. Магазин champion в г. Самаре представляет не только вышеперечисленный товар но и другие виды агрегатов например: СНЕГОУБОРЩИКИ...

  • TERenlpl

    2017-08-09 20:02:59

    похудение в домашних условиях Спорт и здоровый образ жизни - один из ключей к здоровой, долгой и счастливой жизни. Занятия правильным фитнесом предполагают не только красивую форму, но и связь тела и разума! Наша команда максимально помогает и поддерживает клиента на разных уровнях подготовки! Мы обучаем, мотивируем, ставим цели и помогаем разобраться в особенностях каждого, делая упор на знания и взаимоотношения с клиентом. Для настренировка с Вами, это не просто повторение упражнения на тренажере,...

  • Gregoryyanmug

    2017-08-09 14:31:46

    Продажа био туалетов для мероприятий [url=http://www.tualet86.ru/]мобильные туалетные кабины[/url] [url=http://www.tualet86.ru/]туалет в аренду с обслуживанием[/url] взять туалет в аренду туалетная кабина купить в москве...

  • LamarPip

    2017-08-09 07:43:57

    Привет всем! класный у вас сайт! Нашел интересную базу кино: [url=http://kinovalenok.tv/]Лучшие комедии смотреть[/url] Здесь: [url=http://kinovalenok.tv/serialy/spartak-spartacus/bogi-areny-gods-of-the-arena/315-prikvel-predystoriya-seriya-1.html] Спартак: Боги арены / Spartacus: Gods of the Arena (Приквел, предыстория) Серия 1 [/url] Здесь: [b] Честь / Kavod / Honor (2010) [/b] http://kinovalenok.tv/drama/3212-chest-kavod-honor-2010.html Здесь: http://kinovalenok.tv/drama/12499-vavilon-5-nachalo-tv-babylon-5-in-the-beginning-1998...

  • shawnsz11

    2017-08-09 05:29:32

    My gay pictures http://gayarab.erolove.in/?pg_julius gay shit gay tv shows gay toilet gay chatroom dating gay...

  • ClintonLal

    2017-08-09 02:40:17

    Хорошее здоровье – основа долгой, счастливой http://doctor-i.ru/ и полноценной жизни. Похожий о своем здоровье человек начинают впоследствии того, белотелый у них появляются проблемы со здоровьем, склад дает сбой. Дабы сайте http://doctor-i.ru/ с познавательной целью описаны различные заболевания....

  • Danielmog

    2017-08-08 17:59:09

    Информация о вязании носков, моде, красоте и здоровье на [url=http://tvoi-noski.ru]tvoi-noski.ru[/url]...

  • AlbertKag

    2017-08-07 07:23:33

    где найти детское порно зоо порно бесплатно купить огнестрельное оружие без лицензии [url=http://pravogolosa.net/]зоофилы видео бесплатно[/url] продажа курительных смесей запрещенное детское порно...