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

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

    wh0cd742268 [url=http://viagrageneric.us.org/]viagra generic[/url] [url=http://propecianorx.us.com/]propecia no rx[/url] [url=http://sildenafilnorx.us.com/]sildenafil pharmacy[/url]...

  • CharlesHoups

    2017-04-03 02:36:46

    wh0cd979794 [url=http://triamterene2017.science/]triamterene hctz 75-50 mg tab[/url] [url=http://viagrageneric2017.bid/]viagra[/url] [url=http://zoloft2017.cricket/]zoloft[/url] [url=http://lisinopril2017.bid/]lisinopril[/url] [url=http://eurax2017.bid/]eurax online[/url]...

  • AaronPinge

    2017-04-03 02:20:01

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

  • Bennydip

    2017-04-03 01:39:43

    wh0cd29917 [url=http://plaquenil.us.com/]Plaquenil[/url] [url=http://acticin.us.com/]permethrin[/url]...

  • TracyHorne

    2017-04-03 00:55:52

    wh0cd582424 [url=http://viagrageneric.us.org/]order viagra[/url]...

  • Bennydip

    2017-04-02 23:15:20

    wh0cd979792 [url=http://furosemide.club/]buy lasix furosemide[/url]...

  • MichaelThync

    2017-04-02 23:10:48

    wh0cd765117 [url=http://viagrageneric.us.org/]usa viagra[/url]...

  • EugeneTit

    2017-04-02 22:55:19

    wh0cd614400 [url=http://cialisprofessional.us.com/]cialis professional[/url] [url=http://sildenafilnorx.us.com/]sildenafil online pharmacy[/url] [url=http://prozacnorx.us.com/]prozac no rx[/url]...

  • Alfredpal

    2017-04-02 22:50:47

    wh0cd861032 [url=http://ventolin10.us/]no prescription proventil inhaler[/url] [url=http://buyallopurinol9.us/]allopurinol ordering[/url] [url=http://fluoxetine4.top/]fluoxetine[/url] [url=http://buyacyclovir2011.us/]acyclovir 200mg[/url] [url=http://buyviagrasoft16.us/]buy viagra soft[/url]...

  • Bennydip

    2017-04-02 22:27:43

    wh0cd947825 [url=http://buyvardenafil.us.com/]Vardenafil[/url]...