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

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

  • Speedycash

    2018-01-03 22:53:38

    online payday advance advance cash payday loan payday express [url=https://cashadvance.us.org]cash advance lenders[/url]...

  • Robertinsib

    2018-01-03 20:22:22

    Besides all the other goood reasons to neuter yourmalecat-- such as avoiding feline overpopulation and reducing fighting and roaming -- another one stands Why Ctas Spray and How to Stop Itg Why Do Female Cats Spray do female and neutered male cats spray? Underlying medical conditions, litter box issues, and anxiety are just a few of the reasons. Learn more about Easy Ways to Control Terrtiorial Cat Spraying - Drs. Foster and Smith . TrizULTRA + Keto for Dog andCats- Your browser indicates if you've visited this link Dechra's TrizULTRA + Ketoflushcontains Ketoconazole and TrizEDTA specially formulated for dogs andcats...

  • TimothyJal

    2018-01-03 18:35:10

    [url=http://www.delledekor.com/jslider/list.asp?kat=36]Kigtropin Italia[/url] It is wise to observe what sort of chemical compounds you will be putting on the face. A few of these chemical substances with crystal clear apart every one of the gas on your skin. By doing this, your body compensates by making much more quantities of essential oil and may result in further more blockage of your pores and more acne breakouts. [url=http://www.batistaetawil.com.br/achieve/router.asp?h=7-Buy-Jintropin-Mexico-Hygetropin-Hgh-Dosage-Hgh-Fragment-176-191-Reddit/]Buy Jintropin Mexico[/url] Always set your scenery substantial...

  • Payday Loans

    2018-01-03 16:35:34

    loans loans loan [url=https://loan.us.org]cash loans[/url]...

  • cure auto insurance

    2018-01-03 14:24:49

    car insurance quotes comparison online compare car insurance compare car insurance rates [url=https://comparecarinsurance.us.com]cheapest auto insurance quotes comparison[/url]...

  • BryceGep

    2018-01-03 12:32:21

    [url=http://www.virtuelle-post-stelle.de/nmd-runner-beige-868.html]Nmd Runner Beige[/url] Consume just as much substantial-fiber food products as possible. This will help to soften your feces and prevent piles from developing. Most fresh fruits, like grapes, watermelon and papaya, has many dietary fiber within it. Any type of roughage is likewise useful. You may get fiber capsules, too, to help in the process. [img]https://www.aarhus-abk.dk/images/aar2/14302-vans-era-dame.jpg[/img] Recognize that those who are dealing with cancers will require some time to on their own...

  • Best Online Loans

    2018-01-03 12:01:52

    cash advance 10 top loan companies payday advance loan [url=https://cashadvance.us.org]payday advance[/url]...

  • Janecat

    2018-01-03 11:16:04

    argumentative essay argumentative essay college essays [url=https://essay.us.org]help with science homework[/url]...

  • CharlesSom

    2018-01-03 10:22:48

    конкурс москва национальный песенный конкурс[url=https://russianpopoyka.show] вокальные конкурсы [/url]...

  • Johnnymog

    2018-01-03 10:20:42

    與年幼的孩子的性視頻 [url=https://offshoreleaks.icij.org/pages/database]sex video with young children[/url]...