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

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

Коментарi

  • DanielUrip

    2017-04-29 14:15:45

    Оформлять и подавать заявки на кредит через интернет очень удобно. Как правило банки предлагают короткие анкеты интернет онлайн-заявок на кредиты для заполнения. Заявки поступают в банки и менеджеры перезванивают вам на указанный телефон. Некоторые банки предлагают оформить кредит онлайн, заполнив короткую или длинную анкету заемщику. С помощью расширенных форм заявок собираются данные, позволяющие банку ускорить процесс принятия решения о выдаче кредита. Рекомендуем запастись терпением и подать онлайн заявки на кредитование в несколько банков - возрастает вероятность и скорость получения кредита...

  • Alfredpal

    2017-04-29 14:15:30

    wh0cd77696 [url=http://buyretina365.top/]buy retin a[/url] [url=http://buylevitra4.gdn/]buy levitra[/url] [url=http://advair25.top/]advair[/url]...

  • Kennethrig

    2017-04-29 10:56:56

    wh0cd240776 [url=http://baclofen.city/]baclofen[/url] [url=http://atarax.desi/]atarax 25mg tab[/url] [url=http://lipitor.fyi/]lipitor 80mg[/url] [url=http://fluoxetine.business/]fluoxetine[/url] [url=http://baclofen.casa/]baclofen[/url] [url=http://suhagra.casa/]suhagra[/url]...

  • Alfredpal

    2017-04-29 08:56:43

    wh0cd871592 [url=http://eurax2.top/]eurax without prescription[/url] [url=http://buylevitra2014.top/]levitra generic[/url] [url=http://buycelexa75.top/]celexa[/url] [url=http://buyflagyl3.top/]flagyl[/url] [url=http://celebrex25.top/]celebrex[/url] [url=http://baclofen50.top/]where to buy baclofen[/url] [url=http://fluoxetine20.top/]fluoxetine[/url] [url=http://indocin2014.us/]indocin[/url]...

  • Kennethrig

    2017-04-29 08:16:11

    wh0cd132056 [url=http://zoloftonline.us.com/]cheap zoloft[/url] [url=http://cheapgenericviagra.us.com/]Cheap Generic Viagra[/url]...

  • Kennethrig

    2017-04-29 06:50:15

    wh0cd77696 [url=http://buycrestor.us.org/]crestor online[/url] [url=http://onlinelevaquin.us.com/]online levaquin[/url] [url=http://onlineelocon.us.com/]online elocon[/url]...

  • Kennethrig

    2017-04-29 05:23:33

    wh0cd23336 [url=http://tadacip.mba/]more information[/url] [url=http://abilify.gripe/]10 mg abilify[/url] [url=http://citalopram.ltd/]celexa citalopram[/url] [url=http://valtrex.systems/]valtrex cost[/url] [url=http://amoxil.tools/]amoxil[/url]...

  • Kennethrig

    2017-04-29 01:17:32

    wh0cd871584 [url=http://albendazole15.us/]albendazole[/url] [url=http://buyantabuse2016.us/]antabuse online[/url] [url=http://stromectol10.gdn/]stromectol[/url] [url=http://tadalafil12.gdn/]tadalafil[/url] [url=http://benicar247.top/]benicar generic[/url]...

  • Alfredpal

    2017-04-28 19:54:48

    wh0cd327979 [url=http://buyclomid.us.org/]Buy Clomid Online[/url]...

  • Alfredpal

    2017-04-28 16:39:04

    wh0cd164899 [url=http://propecia1mg.us.com/]cheapest propecia[/url] [url=http://acyclovironline.us.com/]acyclovir online[/url]...