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

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

Коментарi

  • MichaelThync

    2017-03-06 16:26:41

    wh0cd230792 [url=http://cafergot365.us.com/]cafergot[/url]...

  • EugeneTit

    2017-03-06 15:06:41

    wh0cd7031 [url=http://yasmin365.us.com/]Yasmin[/url] [url=http://genericcialis.us.org/]cialis no prescription[/url]...

  • EugeneTit

    2017-03-06 14:29:40

    wh0cd988902 [url=http://diflucan7.us/]our website[/url] [url=http://bentyl-10mg.in.net/]bentyl 10 mg[/url] [url=http://doxycycline-hyclate-100mg.in.net/]doxycycline hyclate 100mg price[/url] [url=http://elimite500.us/]elimite[/url]...

  • AaronPinge

    2017-03-06 13:38:22

    wh0cd381545 [url=http://aygestin.top/]cheap aygestin[/url]...

  • BobbyGlulp

    2017-03-06 12:06:11

    Testoboost pro - Improve male potency, muscle strength and sexual energy with this new natural vitamin complex! Hurry! Final Few Trials of TestoBoost Pro available in Your City! http://testosteronusa.com/ : [b] Buy Free trial TestoBoost Pro [/b] [url="http://testosteronusa.com/state/testoboost-pro-niwali-free-sample-corona.htm"] Testoboost pro niwali free sample Corona buy free trial [/url] [b] Buy Free trial TestoBoost Pro [/b] [b] Mississippi Testoboost pro adv [/b] http://testosteronusa.com/state/mississippi-testoboost-pro-adv-1...

  • EugeneTit

    2017-03-06 12:01:52

    wh0cd892999 [url=http://buyeurax-2015.us/]eurax[/url] [url=http://water-pill-triamterene-hctz.in.net/]triamterene[/url] [url=http://bentylotc.club/]bentyl liquid[/url]...

  • AaronPinge

    2017-03-06 11:06:17

    wh0cd317611 [url=http://buy-tamoxifen.com/]nolvadex[/url]...

  • TracyHorne

    2017-03-06 07:18:40

    wh0cd573332 [url=http://namenda.club/]namenda[/url] [url=http://zyvox.club/]zyvox antibiotic[/url] [url=http://serophene.club/]serophene[/url] [url=http://uroxatral.club/]uroxatral[/url]...

  • Josephkic

    2017-03-06 07:03:45

    [url=http://cialisovercounteratwalmartusa.com]over the counter cialis[/url] - is cialis over the counter, cialis over the counter....

  • AaronPinge

    2017-03-06 06:48:06

    wh0cd189747 [url=http://synthroid-4.us/]synthroid[/url] [url=http://cialis247.us/]cialis[/url] [url=http://nolvadexforsale.review/]nolvadex[/url] [url=http://clonidine2010.us/]clonidine[/url] [url=http://vpxl-365.top/]vpxl[/url] [url=http://viagrapill.in.net/]order viagra online canada[/url]...