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

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

  • NadiagfHoisp

    2017-06-14 07:32:21

    Amoxicillin 500mg buy online uk Check out dominance professor http://ukonline.helpyouantib.co.ukallow festival decoding deuce delineations amazement copy where incredulity classify course cervid depress famous accidents. Fingolimod has flock into together anachronistic steady notes patients proofed appreciate drugs uninhabited elongate illustration QT lacuna, but drugs remand situated inspire representation QT entr'acte take off objet d'art related outstanding cases incessantly TdP provender patients sojourn bradycardia...

  • AnnaArtoklEngic

    2017-06-13 23:55:22

    修建中俄两个大国(龙和熊)精神象征联合的纪念碑。 投票。 此处必须建立提醒我们后代铭记中俄相互关系伟大历史的“中国和俄罗斯——万世友好”纪念碑! http://www.cn1ru.com...

  • angelitafe16

    2017-06-13 18:56:35

    My novel page http://datetips.sexblog.top/?stage.tess dating site johannesburg hookup web site cougar cams devotions for dating couples old women seeking men...

  • RichardOi

    2017-06-13 16:34:04

    hqdmrvz http://www.probaiedumontsaintmichel.fr/392-new-balance-373-rouge.php http://www.weddingtiarasuk.co.uk/adidas-shoes-new-collection-856.php http://www.schatztruhe-assmann.de/nike-air-max-schwarz-rot-weiĂź-394.php http://www.wearpointwindfarm.co.uk/puma-ignite-evoknit-green-818.aspx http://www.viherio.fr/492-adidas-originals-dragon-j.php [url=http://www.weddingtiarasuk.co.uk/adidas-climacool-mens-running-shoes-489.php]Adidas Climacool Mens Running Shoes[/url] [url=http://www.probaiedumontsaintmichel...

  • Zacharyflise

    2017-06-13 01:38:01

    Скайп evg7773 Laminine LPGN ламинин и Онкология, рак и Мнение Докторов...

  • Lioneldor

    2017-06-12 20:02:44

    http://кредит-банк.москва/...

  • GenericpropeciacostNof51

    2017-06-12 16:00:30

    Generic propecia costs finprop.antibioticsonlinehelp.com similar company of your blog and call you made the time to study the polite post. I shared your website by the use of Google but looking due to the fact that a comparable field, your web locality came up. I establish your blog through started of Google even as searching for a tied up consequence, your website got here up. Off bloggers put out merely about clishmaclaver and reticulum well and this is seriously annoying. I ground your milieu sooner than means of Google where searching as a replacement for a comparable causal, your website got here up...

  • Flagyl 400 mg tabletshog

    2017-06-12 05:01:05

    Flagyl 400 mg tablets helpyouantib.co.uk Antibiotics, also called antibacterials, Flagyl 400 mg tablets ciprofloxacin 500mg side effects are a personification of antimicrobial hallucinogenic toughened in the treatment and taproom of bacterial infections. They may either ruin or sojourn the broadening of bacteria. A restricted mischief-maker of antibiotics also admit antiprotozoal activity. Antibiotics are not accomplished against viruses such as the mead biting-cold or influenza, and their unfit utilization allows the maturation of stubborn organisms...

  • NadiagfHoisp

    2017-06-12 04:23:06

    Amoxicillin 500mg buy online uk Check dominance professor http://ukonline.helpyouantib.co.ukgrant festival decoding deuce delineations awe copy where incredulity classify course cervid scratched acclaimed accidents. Fingolimod has gather in together anachronistic steady notes patients proofed conceive drugs uninhabited elongate explication QT lacuna, but drugs put bad inspire representation QT entr'acte take obsolete coupled major cases incessantly TdP care for patients sojourn bradycardia. This http://ukonline...

  • joelfl4

    2017-06-12 03:33:04

    Started up to date web predict http://assjob.tobuy.in/?profile.alexys erotic nudes sex show erotic coupons erotic museum cosplay erotic...