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

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

  • JeremySes

    2017-03-24 23:31:15

    love your website, thanks and camouflage b confine the honesty a possessions berth check the latest [url=http://onlinecasinos-x.com]casino[/url] bonus offers...

  • evfbbxgo

    2017-03-24 20:21:07

    divisional sweetback frampton kornel dyiqea banky [url=http://falkomfk.xyz]zegc[/url] immediate http://timo6c.xyz alyssa equip butting ers...

  • maypeLuh

    2017-03-24 06:05:30

    Here you can see the list of girls who show their naked bodies and masturbate for you online! http://eroticpro.ru/veb-kamery-v-rezhime-onlajn-s-russkimi-devushkami...

  • mrPresk

    2017-03-23 10:14:03

    choldingj [url=http://levited.com]levitra vs generic levitra[/url] xparticularlyg levitra generic canada...

  • EugeneTit

    2017-03-23 05:30:35

    wh0cd20830 [url=http://buytretinoin2014.top/]buy tretinoin[/url] [url=http://indocin250.top/]indocin[/url] [url=http://seroquel2012.top/]seroquel[/url] [url=http://buybaclofen3.top/]baclofen[/url] [url=http://erythromycin2011.top/]erythromycin[/url]...

  • Bennydip

    2017-03-23 05:21:54

    wh0cd555153 [url=http://vpxl365.us.com/]vpxl[/url] [url=http://cialisbuy.us.com/]tadalafil[/url] [url=http://sinequan.us.com/]Generic Sinequan[/url]...

  • MichaelThync

    2017-03-23 04:59:22

    wh0cd491224 [url=http://buycelexa0.top/]celexa[/url] [url=http://buydoxycycline0.us/]doxycycline 100mg tablets[/url] [url=http://amitriptyline247.top/]amitriptyline[/url]...

  • CharlesHoups

    2017-03-23 04:16:46

    wh0cd610007 [url=http://phenergan.us.com/]phenergan[/url]...

  • MichaelThync

    2017-03-23 03:47:15

    wh0cd459259 [url=http://buyphenergan2010.top/]phenergan oral[/url] [url=http://synthroid5.top/]synthroid 175 mcg[/url] [url=http://buytadacip8.top/]buy tadacip[/url] [url=http://inderal250.us/]inderal[/url]...

  • Alfredpal

    2017-03-23 03:06:51

    wh0cd171574 [url=http://amoxil247.us.com/]amoxil pills[/url] [url=http://flagyl365.us.com/]Buy Flagyl[/url]...