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

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

  • IbakonEmeva

    2017-07-15 04:13:57

    [URL=http://sochi-girls.info]проститутки сочи[/URL] [URL=http://xn----otbabhwecjlehbao4e.xn--p1ai]проститутки сочи[/URL] Только на нашем сайте представлены лучшие [URL=http://sochi-xxx.com]проститутки сочи[/URL] [URL=https://sexosochi.mobi]проститутки сочи[/URL] "взрослый досуг" наш конек...

  • Shannonlib

    2017-07-15 01:04:25

    средства улучшающие работу головного мозга обзор эвалар препараты для улучшения памяти внимания умственной работоспособности что принять для мозговой активности...

  • BrandenExers

    2017-07-15 01:00:21

    трава чтобы быстрее забеременеть как быстро можно забеременеть с поликистозом яичников когда снизится пролактин как быстро можно забеременеть...

  • Davidfouby

    2017-07-14 18:58:12

    https://blaginform.ru/kalki-inliranga-i-kak-sekta-ashram-shambaly-oblyubovala-blagoveshhensk/...

  • LarryMIX

    2017-07-14 18:23:12

    Очень много полезного о стройке [url=http://teletap.org]teletap.org[/url]...

  • SheldonDueri

    2017-07-14 15:53:31

    хочу забеременеть не от мужа как это сделать у меня вес 115 кг хочу забеременеть что мне делать у кого как получилось забеременеть и как быстро...

  • Josephedump

    2017-07-14 15:44:12

    как быстро забеременеть при эндометриозе яичников хочу забеременеть t подготовиться как забеременеть народные средства боровая матка и красная щетка...

  • Richardlaf

    2017-07-14 15:39:22

    сбор серафимы обман как быстро забеременеть в 45 лет отзывы врачей ий метод забеременеть...

  • Andrewrem

    2017-07-14 10:30:52

    [url=http://www.eltechmash.ru]eltechmash.ru[/url] Электроизоляционные материалы Компания «КАСКАД» занимается реализацией электроизоляционных материалов, асбестовых и асботехнических изделий, кабельно-проводниковой и резинотехнической продукции. Заказы на приобретение принимаются в наших филиалах, которые находятся в Москве, Санкт-Петербурге и Нижнем Новгороде. Доставляем товары во все регионы России при помощи нашего партнера — транспортной компании «Деловые Линии». Компания «Элтехмаш» рада сообщить, что мы начали продажу листового полиэфирного стеклопластика нового поколения H900, производство США...

  • JamesWrano

    2017-07-14 10:30:20

    [url=http://izovolt.ru]izovolt.ru[/url] Электроизоляционные материалы Компания «КАСКАД» занимается реализацией электроизоляционных материалов, асбестовых и асботехнических изделий, кабельно-проводниковой и резинотехнической продукции. Заказы на приобретение принимаются в наших филиалах, которые находятся в Москве, Санкт-Петербурге и Нижнем Новгороде. Доставляем товары во все регионы России при помощи нашего партнера — транспортной компании «Деловые Линии». Компания «Элтехмаш» рада сообщить, что мы начали продажу листового полиэфирного стеклопластика нового поколения H900, производство США...