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

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

  • Good Homework Music

    2018-02-10 18:48:25

    write my research paper an essay writing electoral college essay [url=https://researchessay.us.com]writing a research paper[/url]...

  • My Thesis

    2018-02-10 18:18:58

    argument essay an argumentative essay an argumentative essay [url=https://argumentessay.us.com]argument essay[/url]...

  • Jamescat

    2018-02-10 13:56:47

    easy loans best cash loans online easy approval payday loans [url=https://easyloans.webcam]loans online[/url] direct payday lenders online online loans direct lenders online loans direct lenders [url=https://onlineloansdirectlenders.stream]loans online bad credit[/url] online installment loans payday loans for bad credit payday loans for bad credit [url=https://paydayloansforbadcredit.stream]payday bad credit loan[/url] payday loan direct lenders best payday loan online direct payday loan lenders [url=https://directpaydayloanlenders...

  • Jamescat

    2018-02-10 13:08:09

    payday loans on line payday loans direct lenders online payday loans instant approval [url=https://smallpaydayloans.cricket]payday advance loans[/url] online payday loan lenders online payday loan application best cash loans online [url=https://onlinepaydayloanlender.loan]instant online payday loan[/url] payday advance loans best payday loan cash loan [url=https://bestpaydayloan.cricket]best payday loan online[/url] free adult webcam chat strip club webcam free adult webcam chat [url=https://freeadultwebcamchat...

  • Aa Seat Assignment

    2018-02-10 12:46:50

    buy research papers essays about food buy research papers [url=https://researchessay.us.com]research essay[/url]...

  • RamonSlogs

    2018-02-10 10:46:37

    In favouritism to outcel.richtig.amsterdam/gesundheit/darmbakterien-antibiotika-78746.html choosing any end-piece, it is valuable outse.richtig.amsterdam/schoenheit/neues-gegen-cellulite-65412.html to adjudge what the epilogue can do in search you. After all, not every honour diminution appendage operates the unchangeable and as a fruit, you should colonize complementary that is compatible with your needs and overlook negation goals. In this station, here are the greatest reasons recompense kuttay...

  • Buy An Essay

    2018-02-10 09:44:52

    term paper assistance term papers purchase term paper [url=https://termpaper.us.com]term paper help[/url]...

  • Jamescat

    2018-02-10 09:36:50

    pay for assignments australia research papers literature review service [url=https://schoolpapers.cricket]school papers[/url] online loan fast payday loan bad credit payday loans direct lenders [url=https://badcreditpaydayloansdirectlenders.cricket]bad credit payday loans direct lenders[/url] best essay writing service do my math homework paper writing service [url=https://bestessaywritingservice.science]umi dissertation services[/url]...

  • Write College Essay

    2018-02-10 07:39:30

    homework help homework assignments help online [url=https://homeworkhelp.us.com]do my homework[/url]...

  • Best Essay Writer

    2018-02-10 07:04:52

    essay for me write essay for me internet argumentative essay [url=https://essays.us.com]essays[/url]...