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

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

  • Opola40

    2017-03-31 04:41:15

    buy quetiapine big pack http://lanyrd.com/profile/buy-quetiapine-300mg-no-rx/bio/...

  • CharlesHoups

    2017-03-31 04:26:26

    wh0cd619100 [url=http://clonidine.us.com/]clonidine[/url] [url=http://buyatenolol.us.com/]Buy Atenolol[/url] [url=http://viagracanada.us.com/]viagra canada[/url]...

  • TracyHorne

    2017-03-31 04:21:23

    wh0cd883926 [url=http://buytadacip.top/]buy tadacip[/url]...

  • CharlesHoups

    2017-03-31 03:28:58

    wh0cd587128 [url=http://clonidine.us.com/]clonidine over counter[/url]...

  • AaronPinge

    2017-03-31 02:40:58

    wh0cd564261 [url=http://fluoxetine2011.top/]fluoxetine[/url] [url=http://hydrochlorothiazide12.top/]hydrochlorothiazide[/url] [url=http://buyarimidex2012.us/]arimidex[/url] [url=http://buydiflucan2011.us/]diflucan[/url] [url=http://seroquel2012.top/]seroquel for bipolar[/url]...

  • MichaelThync

    2017-03-31 02:27:00

    wh0cd212628 [url=http://glucotrol.us/]glucotrol xl[/url]...

  • CharlesHoups

    2017-03-31 01:05:20

    wh0cd523196 [url=http://ampicillin2016.top/]ampicillin online[/url] [url=http://buyindocin2013.us/]indocin[/url] [url=http://levitra0.us/]levitra[/url] [url=http://tetracycline2014.top/]tetracycline[/url] [url=http://buyarimidex5.top/]arimidex[/url]...

  • EugeneTit

    2017-03-31 00:48:45

    wh0cd724084 [url=http://advair17.science/]advair[/url] [url=http://genericcialis2017.bid/]buy generic cialis online canada[/url] [url=http://strattera2017.bid/]strattera[/url] [url=http://ventolin2017.bid/]ventolin[/url]...

  • CharlesHoups

    2017-03-30 23:53:45

    wh0cd491228 [url=http://buyabilify2.top/]buy abilify[/url] [url=http://acyclovir5.top/]acyclovir[/url] [url=http://buyrevia8.top/]revia[/url] [url=http://buyventolin0.us/]ventolin[/url]...

  • Alfredpal

    2017-03-30 23:48:16

    wh0cd116721 [url=http://clindamycin.us/]clindamycin cream[/url] [url=http://eloconoverthecounter.us.com/]elocon over the counter[/url]...