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

програми
Задача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-09-02 17:13:52

    wh0cd527715 [url=http://vardenafil.world/]vardenafil[/url] [url=http://genericseroquel.pro/]generic seroquel[/url] [url=http://cipro.directory/]buy cipro online canada[/url]...

  • MichaelThync

    2017-09-02 17:12:35

    wh0cd593523 [url=http://buytadalafil.store/]tadalafil drug[/url]...

  • CharlesHoups

    2017-09-02 13:39:29

    wh0cd454240 [url=http://buyyasmin.shop/]yasmin acne[/url]...

  • MichaelThync

    2017-09-02 13:16:34

    wh0cd454242 [url=http://cialisprice.reisen/]cialis buy online no prescription[/url]...

  • MichaelSek

    2017-09-02 11:48:05

    Адвокатский кабинет Репиной И.С. Наш сайт [url=http://advocate-repina.ru/]Адвокатский кабинет Репиной И.С.[/url] или переходим так Услуги адвоката – Симферополь (Крым. Россия)...

  • CharlesHoups

    2017-09-02 11:47:23

    wh0cd380767 [url=http://sildenafil.us.com/sildenafil-soft-tabs.html]sildenafil soft tabs[/url]...

  • MichaelThync

    2017-09-02 10:57:09

    wh0cd380771 [url=http://nolvadex.directory/]nolvadex[/url] [url=http://buycytotec.shop/]cytotec[/url] [url=http://elimite.news/]permethrin topical cream over counter[/url]...

  • BrettAginc

    2017-09-02 09:19:41

    wh0cd380773 [url=http://costofcialis.pro/]cost of cialis[/url]...

  • Billymup

    2017-09-02 08:39:45

    wh0cd307290 [url=http://acyclovir.us.com/]acyclovir[/url]...

  • MichaelThync

    2017-09-02 08:34:19

    wh0cd307294 [url=http://buybuspar.shop/]buspar[/url] [url=http://amitriptylinehydrochloride.pro/]generic for elavil[/url] [url=http://buybentyl.reisen/]bentyl[/url]...