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

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

  • Online Lenders

    2017-12-01 10:04:35

    payday loans dallas tx short term loans direct lenders payday loans online reviews [url=https://shorttermloans.us.com]short term loans[/url]...

  • Best Payday Loan

    2017-12-01 05:31:27

    personal loans with bad credit personal loans bad credit personal loans with bad credit [url=https://badcreditpersonalloans.us.com]large personal loans[/url]...

  • Jamescat

    2017-12-01 05:22:41

    listening to music while doing homework essay writing service uk photo assignment [url=https://essaywritingservices.us.com]best essay writing service reviews[/url]...

  • Jamescat

    2017-12-01 05:00:43

    cfnm show webcam sex nude chats [url=https://webcamsex.us.com]webcam sex chat[/url]...

  • Payday Loan Online

    2017-12-01 02:06:23

    quick pay day loans quick personal loans fast easy cash loans [url=https://quickloans.us.com]quick loans no credit check[/url]...

  • Jamescat

    2017-12-01 01:45:19

    write essays online write my essay online article source [url=https://essayonline.us.com]WriteMyEssay.us.com[/url]...

  • Jamescat

    2017-11-30 21:05:21

    payday loans for bad credit texas bad credit payday loans payday loans for bad credit texas [url=https://badcreditpersonalloans.us.com]bad credit personal loans guaranteed[/url]...

  • RonaldByday

    2017-11-30 18:17:55

    [url=http://xcmgxz.ru/]микротоннелирование[/url]...

  • Jamesdrino

    2017-11-30 17:24:05

    Приветствую! класный у вас сайт! Нашел интересную базу кино: [b] 2017 список лучшие мультфильмы [/b] [url=http://kinoklan.net/]http://kinoklan.net/[/url] Тут: http://kinoklan.net/komediya/7223-polyubi-menya-please-like-me-sezon-1-3-2013-2015.html [b] Смотреть Полюби меня / Please Like Me (Сезон 1-3) (2013-2015) онлайн бесплатно [/b] Здесь: [url=http://kinoklan.net/news/8888-veneciya-uzhmet-skorseze-v-malyy-format.html] Венеция ужмет Скорсезе в малый формат [/url] Здесь: http://kinoklan.net/raznoe/6118-zodiak-predvestiya-apokalipsisa-zodiac-signs-of-the-apocalypse-2014...

  • Jamescat

    2017-11-30 10:32:27

    This Site essay writing online write my essay online [url=https://essayonline.us.com]paper writing services[/url]...