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

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

  • TracyHorne

    2017-04-02 02:56:38

    wh0cd7031 [url=http://sildenafilnorx.us.com/]Sildenafil Pharmacy[/url] [url=http://cialisprofessional.us.com/]Cialis[/url] [url=http://viagrageneric.us.org/]Viagra Tabs[/url]...

  • AaronPinge

    2017-04-02 02:24:31

    wh0cd988901 [url=http://propecianorx.us.com/]cheap propecia no prescription[/url]...

  • MichaelThync

    2017-04-02 01:56:49

    wh0cd285638 [url=http://viagrageneric.us.org/]viagra generic[/url] [url=http://sildenafilnorx.us.com/]SILDENAFIL NO RX[/url] [url=http://cialisprofessional.us.com/]cialis online for sale[/url]...

  • AaronPinge

    2017-04-02 01:52:52

    wh0cd956936 [url=http://cialisprofessional.us.com/]cialis[/url] [url=http://sildenafilnorx.us.com/]sildenafil citrate 50 mg[/url] [url=http://propecianorx.us.com/]propecia no rx[/url]...

  • CharlesHoups

    2017-04-02 01:34:38

    wh0cd500309 [url=http://buyindocin.us.com/]indocin no rx[/url]...

  • Bennydip

    2017-04-02 00:01:54

    wh0cd340481 [url=http://buyabilify2017.us/]generic abilify online[/url] [url=http://buyamoxicillin50.top/]can we buy amoxcillin 500mg on ebay without prescription[/url] [url=http://lipitor25.top/]purchase lipitor[/url] [url=http://anafranil12.top/]anafranil[/url] [url=http://zoloft7.top/]zoloft[/url]...

  • AaronPinge

    2017-04-01 23:24:41

    wh0cd861035 [url=http://sildenafilnorx.us.com/]sildenafil no rx[/url] [url=http://prozacnorx.us.com/]prozac no rx[/url] [url=http://cialisprofessional.us.com/]cialis lowest cost[/url]...

  • EugeneTit

    2017-04-01 21:53:16

    wh0cd956932 [url=http://viagrageneric.us.org/]viagra generic[/url] [url=http://prozacnorx.us.com/]prozac with no prescription[/url] [url=http://sildenafilnorx.us.com/]order sildenafil[/url]...

  • Alfredpal

    2017-04-01 21:32:16

    wh0cd349578 [url=http://shuddhaguggulu.top/]shuddha guggulu[/url]...

  • EugeneTit

    2017-04-01 21:14:18

    wh0cd924960 [url=http://viagrageneric.us.org/]order viagra[/url] [url=http://prozacnorx.us.com/]Prozac No Rx[/url]...