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

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

Коментарi

  • Alfredpal

    2017-04-02 06:47:59

    wh0cd445475 [url=http://buyprednisone-2016.top/]where to buy prednisone online without a script[/url] [url=http://elocon1.top/]elocon for eczema[/url] [url=http://acyclovir12.top/]acyclovir[/url] [url=http://buyindocin17.us/]indocin[/url]...

  • MichaelThync

    2017-04-02 06:27:51

    wh0cd381533 [url=http://propecianorx.us.com/]propecia no rx[/url]...

  • TracyHorne

    2017-04-02 06:20:58

    wh0cd70963 [url=http://viagrageneric.us.org/]viagra generic[/url] [url=http://propecianorx.us.com/]Propecia Tablets[/url]...

  • EugeneTit

    2017-04-02 05:54:39

    wh0cd166868 [url=http://cialisprofessional.us.com/]buy cialis[/url]...

  • Alfredpal

    2017-04-02 05:07:30

    wh0cd413510 [url=http://nexiumnorx.us.com/]buy nexium[/url]...

  • MichaelThync

    2017-04-02 04:46:48

    wh0cd349568 [url=http://viagrageneric.us.org/]viagra cost[/url] [url=http://cialisprofessional.us.com/]Cialis[/url]...

  • TracyHorne

    2017-04-02 04:31:19

    wh0cd38998 [url=http://cialisprofessional.us.com/]CIALIS LOWEST COST[/url] [url=http://prozacnorx.us.com/]Prozac Price[/url]...

  • CharlesHoups

    2017-04-02 03:25:46

    wh0cd564241 [url=http://buycialis17.top/]buy cialis[/url] [url=http://tadacip7.top/]tadacip[/url] [url=http://buyclomid12.us/]clomid[/url]...

  • Alfredpal

    2017-04-02 03:16:48

    wh0cd381545 [url=http://tetracycline2017.cricket/]tetracycline[/url] [url=http://triamterene2017.science/]triamterene[/url] [url=http://motilium2017.cricket/]motilium online[/url] [url=http://paxil2017.bid/]explained here[/url] [url=http://diflucan2017.science/]diflucan 50 mg[/url]...

  • MichaelThync

    2017-04-02 03:09:04

    wh0cd317603 [url=http://cialisprofessional.us.com/]cialis[/url] [url=http://prozacnorx.us.com/]generic prozac cost[/url] [url=http://propecianorx.us.com/]propecia generic[/url]...