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

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

  • agrohimtca

    2017-01-13 08:06:14

    Приветствую Вас товарищи! [url=http://agro-himiya.by/][img]http://img10.lostpic.net/2016/10/02/a9dcec621e5059796a1c00d8e681827d.jpg [/img][/url] Минеральные удобрения– вещества, имеющие неорганическую природу происхождения. Они традиционно используются в сельском хозяйстве, так как являются более доступными, чем органические, дают быстрый положительный эффект, и имеют широкий спектр действия. Также их гораздо удобнее и дешевле транспортировать. 1)[url=http://agro-himiya.by]аммиачная селитра купить в минске [/url] - Минеральные удобрения купить в Минске можно самовывозом в течении 20 минут, либо c оперативной доставкой...

  • Stevenbex

    2017-01-12 11:22:07

    Hello. And Bye....

  • ShawnsAK

    2017-01-11 23:57:59

    [URL=http://hotgirls-hd.com/bigtits]женщины в униформе[/URL]...

  • AlexSkywommebromb

    2017-01-11 07:26:30

    Натуральные природные продукты из растений сибирского региона. Основу препаратов составляют лечебные экстракты растений. * Имеется широкий выбор средств по уходу за телом и лицом на основе трав из серии «Сибирская коллекция бальзамов»; * Линия возрастной косметики; * Серия детской косметики (без консервантов); * Продукты для укрепления и оздоровления всего организма. https://vk.com/sibir_zdorove...

  • Conradtum

    2017-01-11 04:31:29

    металлоизделия любой формы, размера, количества. Соблюдение всех сроков! [url=http://nvzmk.ru/]Новинский ЗМК[/url]...

  • Afkicova

    2017-01-10 16:53:11

    Дешевая виагра! Удиви свою девушку выносливостью в постели! Цены от 75руб. за таблетку - http://indatab.com/?wmid=501 виагра пробники...

  • MichaelGob

    2017-01-10 16:15:20

    Всем кому интересно частное порно открылся новый портал Импортозамещение порнохаба =)) [url=http://porno-hd-best.ru/]Смотреть порно HD онлайн[/url]...

  • Robertcrina

    2017-01-09 17:53:56

    Уже нашел!! Скачать песню Макс Барских туманы можно здесь - http://www.y-vologda.com/...

  • Robbieabelp

    2017-01-09 14:22:48

    Darius Rucker is a famous country singer, so don't miss the possibility to visit [url=http://dariusruckerconcerts.com]Darius Rucker concert wichita kansas[/url]...

  • AnthonyDaync

    2017-01-09 11:54:02

    Здравствуйте,предлагаю вам сервис по написаю статей,курсовых,сочинений и тд...для институтов,школ,академий: [url=https://expertwriting.org/?cid=2181]thesis writing services[/url] [url=https://expertwriting.org/?cid=2181]coursework writer[/url] [url=https://essayoneday.com/?cid=2181]paying someone to write a paper[/url] цены приемлемые,быстрая и качественная работа! http://essayoneday.com/?cid=2181 http://superbpaper.com/?cid=2181 http://7essays.com/?cid=2181 http://power-essays.com/?cid=2181 http://expertwriting...