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

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

  • Alfredpal

    2017-04-01 20:28:54

    wh0cd317611 [url=http://furosemide.club/]Furosemide Prices[/url]...

  • CharlesHoups

    2017-04-01 20:05:53

    wh0cd404410 [url=http://genericadvair.review/]is there a generic advair[/url] [url=http://buycytotec2010.us/]buy cytotec[/url] [url=http://buyindocin4.us/]indocin[/url] [url=http://buyadvair25.top/]buy advair[/url]...

  • Alfredpal

    2017-04-01 19:22:05

    wh0cd285646 [url=http://prednisone2010.top/]prednisone[/url] [url=http://buydiflucan250.us/]buy diflucan[/url] [url=http://buyallopurinol8.top/]allopurinol[/url]...

  • Josephvop

    2017-04-01 18:39:15

    People are extremely quick to judge individuals who read (and write!) Celebrity news is mainly entertaining but in addition functions as exposure and publicity. Not all celebrities dwell in major cities. - [url=http://www.batmanflashgames.com/profile/renateleech]Green Day[/url] ,[url=http://yamneck4.jigsy.com/entries/general/-Up-in-Arms-About-Entertainment-News-]Simon Pegg[/url]...

  • AaronPinge

    2017-04-01 18:30:30

    wh0cd669241 [url=http://viagrageneric.us.org/]viagra tabs[/url]...

  • TracyHorne

    2017-04-01 17:51:00

    wh0cd765129 [url=http://sildenafilnorx.us.com/]sildenafil no rx[/url] [url=http://cialisprofessional.us.com/]cialis professional[/url]...

  • AaronPinge

    2017-04-01 17:43:15

    wh0cd637276 [url=http://propecianorx.us.com/]buy propecia online uk[/url] [url=http://prozacnorx.us.com/]prozac no rx[/url] [url=http://sildenafilnorx.us.com/]cheap sildenafil[/url]...

  • EugeneTit

    2017-04-01 17:22:22

    wh0cd765133 [url=http://cialisprofessional.us.com/]Cialis Professional[/url] [url=http://prozacnorx.us.com/]cheapest prozac[/url] [url=http://sildenafilnorx.us.com/]sildenafil online[/url]...

  • Alfredpal

    2017-04-01 17:17:05

    wh0cd253679 [url=http://buytadacip7.top/]buy tadacip online[/url] [url=http://buytamoxifen2015.top/]buy tamoxifen online[/url] [url=http://buylevitra6.top/]buy levitra no prescription[/url] [url=http://buycialis-365.us/]buy cialis[/url] [url=http://buyamoxil2017.us/]amoxil buy[/url]...

  • AaronPinge

    2017-04-01 16:14:56

    wh0cd573344 [url=http://cialisprofessional.us.com/]Buy Cialis[/url]...