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

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

  • AnthonyAlole

    2017-12-24 23:06:54

    porn video with children [url=https://inter-net.pro/joomla/otzyv-cmsheaven]gay video porn[/url] https://inter-net.pro/joomla/otzyv-cmsheaven...

  • Loan Cash

    2017-12-24 22:58:55

    easiest payday loan to get cash advance lenders best payday loan online [url=https://cashadvance.us.org]paydayloan[/url]...

  • Payday Loan Online

    2017-12-24 22:31:37

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

  • accurate automotive

    2017-12-24 19:45:34

    insurance quotes aarp car insurance quote compare car insurance [url=https://comparecarinsurance.us.com]michigan auto insurance[/url]...

  • Online Loans

    2017-12-24 17:11:11

    advance payday loans direct payday lenders cash advance [url=https://cashadvance.us.org]easy loans[/url]...

  • Jamescat

    2017-12-24 14:43:29

    essay prompts essay prompts write essay [url=https://essayprompts.cricket]buy argumentative essay[/url] research paper help essay corrector 24 hour homework help [url=https://bestessaywritingservice.science]best essay writing service[/url] buy essay online buy essays online buy essays online [url=https://buyessayonline.cricket]buy essay online[/url] short term payday loan short term loans direct lenders bad credit payday loans direct lenders [url=https://badcreditpaydayloansdirectlenders.cricket]bad...

  • nj auto insurance

    2017-12-24 13:04:34

    compare auto insurance compare auto insurance rates compare auto insurance rates [url=https://carinsurance.us.org]cheapest car insurance[/url]...

  • MichaelHix

    2017-12-24 12:24:30

    sex video with young children [url=https://inter-net.pro/joomla/otzyv-cmsheaven]sex video with young children[/url] https://inter-net.pro/joomla/otzyv-cmsheaven...

  • DonaldPrups

    2017-12-24 12:24:28

    porn sex with animals [url=https://inter-net.pro/joomla/otzyv-cmsheaven]porn sex gay porn[/url] https://inter-net.pro/joomla/otzyv-cmsheaven...

  • CalvinMouch

    2017-12-24 11:49:12

    friv porn video with animals [url=http://www.friv-2017.com/]sex with children[/url] http://www.friv-2017.com/...