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

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

Коментарi

  • MichaelThync

    2017-09-02 08:14:53

    wh0cd299629 [url=http://buy-kamagra.store/]kamagra[/url] [url=http://tretinoincream025.pro/]tretinoin cream .025[/url] [url=http://buy-flagyl.shop/]flagyl[/url]...

  • CharlesHoups

    2017-09-02 06:40:39

    wh0cd233819 [url=http://elimite.news/]elimite[/url] [url=http://fluoxetine.tools/]fluoxetine[/url]...

  • BrettAginc

    2017-09-02 06:32:11

    wh0cd233822 [url=http://metforminonline.pro/]ordering metformin on line without a prescription[/url]...

  • Billymup

    2017-09-02 06:21:09

    wh0cd233817 [url=http://lasix.live/]lasix[/url]...

  • BrettAginc

    2017-09-02 05:54:11

    wh0cd233821 [url=http://suhagraonline.pro/]suhagra[/url]...

  • CharlesHoups

    2017-09-02 04:26:31

    wh0cd160346 [url=http://albuterol.store/]albuterol[/url] [url=http://misoprostol.pro/]misoprostol[/url]...

  • BrettAginc

    2017-09-02 04:13:48

    wh0cd160349 [url=http://buy-synthroid.shop/]buy synthroid[/url]...

  • MichaelThync

    2017-09-02 04:07:39

    wh0cd160344 [url=http://buytadalissx.reisen/]site here[/url]...

  • Billymup

    2017-09-02 01:55:26

    wh0cd86871 [url=http://yasmin.work/]yasmin[/url] [url=http://neurontinonline.pro/]neurontin[/url] [url=http://buyrimonabant.reisen/]rimonabant acomplia buy[/url]...

  • CharlesHoups

    2017-09-02 01:53:29

    wh0cd86871 [url=http://buy-synthroid.shop/]buy synthroid[/url] [url=http://trazodone100mg.pro/]trazodone 100mg[/url]...