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

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

  • CharlesHoups

    2017-06-02 23:39:17

    wh0cd654140 [url=http://buyaugmentin0.top/]medicine augmentin[/url] [url=http://propranolol10.top/]propranolol[/url] [url=http://buyalbendazole17.top/]buy albendazole[/url] [url=http://wellbutrin11.top/]wellbutrin[/url]...

  • Kennethrig

    2017-06-02 23:10:18

    wh0cd793464 [url=http://benicar365.us.com/]benicar[/url] [url=http://buylipitor.us.com/]lipitor no prescription needed[/url] [url=http://antabuse3.us/]cheap antabuse[/url] [url=http://cialis20mg24.us.org/]cialis 20 mg[/url]...

  • Alfredpal

    2017-06-02 22:32:37

    wh0cd173976 [url=http://genericcialis24.us.org/]generic cialis[/url] [url=http://celebrex24.us.org/]celebrex online[/url] [url=http://cymbalta247.us.org/]cymbalta online[/url]...

  • Bennydip

    2017-06-02 22:04:33

    wh0cd936145 [url=http://retina24h.us.org/]RETIN-A[/url]...

  • CharlesHoups

    2017-06-02 21:14:57

    wh0cd545418 [url=http://viagra247.us.org/]viagra price[/url] [url=http://albendazole24.us.org/]click for source[/url] [url=http://prednisone247.us.org/]prednisone[/url]...

  • Bennydip

    2017-06-02 20:50:25

    wh0cd881783 [url=http://sildenafil247.us.org/]Purchase Sildenafil[/url] [url=http://medrol24.us.org/]medrol[/url]...

  • Kennethrig

    2017-06-02 20:29:28

    wh0cd684742 [url=http://tretinoincream.us.com/]Tretinoin Cream[/url] [url=http://celexa2017.us.com/]celexa[/url]...

  • Bennydip

    2017-06-02 19:23:12

    wh0cd827421 [url=http://furosemide2012.gdn/]lasix furosemide[/url] [url=http://buylasix2010.top/]where to buy lasix[/url] [url=http://buycafergot10.top/]buy cafergot[/url] [url=http://elocon3.gdn/]elocon[/url] [url=http://buytadalafil16.top/]buy tadalafil[/url] [url=http://propranolol4.top/]propranolol[/url]...

  • Kennethrig

    2017-06-02 17:45:48

    wh0cd576020 [url=http://celebrex24.us.org/]celebrex[/url] [url=http://sildenafilcitrate24.us.org/]sildenafil citrate[/url]...

  • Alfredpal

    2017-06-02 16:56:08

    wh0cd65256 [url=http://clomid24.us.org/]clomid[/url] [url=http://abilify24.us.org/]abilify[/url]...