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

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

  • Bennydip

    2017-05-31 16:39:48

    wh0cd99221 [url=http://buytadalafil2014.top/]tadalafil online[/url] [url=http://buycafergot2013.gdn/]buy cafergot[/url] [url=http://yasmin2017.top/]yasmin[/url] [url=http://motilium17.top/]motilium 10mg[/url] [url=http://buylasix2014.top/]more about the author[/url]...

  • DztibqlKanna

    2017-05-31 15:33:36

    how to take tren trenbolone acetate dosage http://appu.te.ua/index.php?option=com_k2&view=itemlist&task=user&id=47887 tren steroid side effects tren what does tren do tren hex http://akademibys.com/index.php?option=com_k2&view=itemlist&task=user&id=6450 tri tren trenbolone dosage tren ace tren ace side effects http://abeir-toril.ru/index.php?option=com_k2&view=itemlist&task=user&id=9640 tren e trenbolone steroid tren acetate dosage trenbolone side effects http://lepisdore.co.za/index.php?option=com_k2&view=itemlist&task=user&id=1076950 trenbolone enanthate cycle trenbolon trenbolon trenbolone dosage http://dmc-ocean...

  • Alfredpal

    2017-05-31 05:40:56

    wh0cd816121 [url=http://eurax2011.top/]eurax[/url] [url=http://buyclomid17.top/]clomid[/url] [url=http://buytrazodone4.top/]trazodone medication[/url]...

  • Bennydip

    2017-05-30 22:24:37

    wh0cd403860 [url=http://buybupropion3.top/]bupropion[/url] [url=http://buycytotec-4.gdn/]buy cytotec[/url] [url=http://ampicillin1.top/]order ampicillin[/url] [url=http://avodart9.top/]avodart generic[/url] [url=http://provera2016.top/]provera[/url] [url=http://sildenafil-247.top/]sildenafil 100mg tablet[/url]...

  • Bennydip

    2017-05-30 16:38:10

    wh0cd132058 [url=http://cheapviagra247.us.org/]viagra pills[/url] [url=http://buycialis247.us.org/]cialis prices[/url]...

  • Kennethrig

    2017-05-30 16:01:09

    wh0cd457096 [url=http://advair24.us.org/]advair[/url] [url=http://toradol24.us.org/]toradol[/url]...

  • Marioacuby

    2017-05-30 11:34:11

    http://gmslots4.com/...

  • Freddiepem

    2017-05-30 09:44:47

    Представляем вам личного помощника! Мы собрали в одном месте все самые полезные и интересные сайты , чтобы вы могли без проблем выбрать именно то, что нужно именно вам....

  • Kennethrig

    2017-05-30 07:58:31

    wh0cd924830 [url=http://prednisolone24.us.org/]predisolone online[/url] [url=http://effexor24.us.org/]effexor tablets[/url] [url=http://genericviagra247.us.org/]viagra canadian[/url]...

  • BrandonUnsen

    2017-05-30 07:43:29

    http://seo-god.com/seo-core-wizard/...