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

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

  • EugeneTit

    2017-04-13 20:46:07

    wh0cd564253 [url=http://viagrageneric.us.org/]Viagra Cost[/url] [url=http://prozacnorx.us.com/]Prozac No Rx[/url]...

  • EugeneTit

    2017-04-13 19:49:28

    wh0cd532288 [url=http://prozacnorx.us.com/]Buy Prozac[/url] [url=http://propecianorx.us.com/]citation[/url] [url=http://cialisprofessional.us.com/]cialis professional[/url]...

  • Kennethrig

    2017-04-13 18:58:58

    wh0cd153067 [url=http://zoloft17.science/]zoloft[/url] [url=http://adalat2017.bid/]adalat[/url] [url=http://abilify2017.bid/]read full report[/url] [url=http://nolvadex2017.bid/]nolvadex[/url] [url=http://sildenafil2017.cricket/]sildenafil[/url]...

  • Bennydip

    2017-04-13 18:44:30

    wh0cd527582 [url=http://ventolin12.top/]buy ventolin inhaler without prescription[/url] [url=http://buybaclofen10.us/]baclofen[/url] [url=http://buyatarax7.us/]buy atarax online[/url] [url=http://buyavodart-7.top/]generic for avodart 0.5 mg[/url]...

  • AaronPinge

    2017-04-13 18:05:37

    wh0cd550446 [url=http://cialisprofessional.us.com/]buy cialis[/url] [url=http://viagrageneric.us.org/]cost of viagra in canada[/url] [url=http://prozacnorx.us.com/]buy prozac[/url]...

  • Servicefij

    2017-04-13 17:44:52

    Приветствую Вас друзья[url=http://vika-service.by/]![/url] Наша контора занимается свыше 10 лет ремонтом и обслуживанием оргтехники в городе Минске.Основные направления и виды нашей деятельности: 1)[url=http://vika-service.by/]Заправка и восстановление картриджей[/url] 2)[url=http://vika-service.by/]Ремонт и сервис оргтехники[/url] 3)[url=http://vika-service.by/]Ремонт и настройка компьютеров и ноутбуков[/url] 4)[url=http://vika-service.by/]SEO продвижение сайтов[/url] 5)[url=http://vika-service...

  • MichaelThync

    2017-04-13 17:26:41

    wh0cd587123 [url=http://viagrageneric.us.org/]found it[/url] [url=http://cialisprofessional.us.com/]buy generic cialis online canada[/url]...

  • Kennethrig

    2017-04-13 16:47:39

    wh0cd89133 [url=http://buyclomid12.us/]clomid[/url] [url=http://sildenafil8.us/]sildenafil[/url] [url=http://buyelocon247.top/]buy elocon[/url] [url=http://buytamoxifen2011.us/]tamoxifen[/url] [url=http://ampicillin8.us/]principen[/url]...

  • MichaelThync

    2017-04-13 16:11:12

    wh0cd523191 [url=http://prozacnorx.us.com/]prozac no rx[/url] [url=http://propecianorx.us.com/]Propecia[/url]...

  • Kennethrig

    2017-04-13 16:04:17

    wh0cd57168 [url=http://amoxil2017.science/]generic amoxil[/url] [url=http://clindamycin17.science/]clindamycin[/url] [url=http://buyviagra2017.bid/]viagra[/url] [url=http://indocin17.science/]where buy indocin indomethacin[/url] [url=http://lasix2017.cricket/]lasix[/url]...