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

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

  • Fastest Payday Loan

    2018-02-03 08:47:08

    loans for bad credit personal loans with bad credit loans for bad credit [url=https://loansforbadcredit.us.org]loans for bad credit[/url]...

  • XRumerTest

    2018-02-03 07:59:52

    Hello. And Bye....

  • Assignment Helpers

    2018-02-03 07:59:03

    best essay writing service proofreading services article write [url=https://essaywritingservices.us.org]help writing a paper[/url]...

  • Jamescat

    2018-02-03 05:23:53

    speedy cash internet payday loans internet payday loans [url=https://internetpaydayloans.stream]online cash advance[/url] online payday loans for bad credit online payday loans for bad credit payday loans no credit check [url=https://onlinepaydayloansforbadcredit.bid]payday loans for bad credit[/url] online payday loan lender online payday loan lender online payday loan lenders [url=https://onlinepaydayloanlender.loan]online payday loan application[/url] writing an argumentative research paper college essay help buy custom research papers [url=https://collegeessayhelp...

  • Jamescat

    2018-02-03 03:33:04

    essay writing essay writing service library homework help [url=https://essaywriting.stream]write assignment for me[/url] free webcam porn cam live porn online fucking [url=https://freewebcamporn.bid]free webcam porn[/url] best cash loan fast payday loans online loans direct lenders [url=https://onlinepaydayloanapplication.science]online payday loan application[/url] research essay research paper writing introduction for research paper [url=https://researchessay.cricket]research papers[/url] essay checker scholarship essay argument essay [url=https://scholarshipessay...

  • Jamescat

    2018-02-03 00:15:30

    cash advance lenders payday advance loan payday bad credit loan [url=https://cashadvanceloan.science]cash advance loan[/url] hot webcam girls free webcam girls slut chat [url=https://hotwebcamgirls.science]hot webcam girls[/url] online payday loan application online payday loan application online payday loan instant approval [url=https://onlinepaydayloanapplication.science]online payday loan application[/url] online payday loans direct lenders same day payday loans online payday loans online direct lender [url=https://samedaypaydayloansonline...

  • Pay Day Loan

    2018-02-02 22:49:06

    payday loans online loans complaints fast cash loans direct lenders [url=https://paydayloansonline.us.org]payday loans online[/url]...

  • Writing My Essay

    2018-02-02 22:31:18

    essay writing essay writing cheap essay writing [url=https://essaywriting.us.com]writing college level essays[/url]...

  • English Essay Writer

    2018-02-02 20:40:23

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

  • Personal Loans

    2018-02-02 17:01:57

    no credit loans guaranteed approval 100 payday loans loan service [url=https://onlineloan.us.com]loan application online[/url]...