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

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

Коментарi

  • Write Essay For Me

    2018-02-02 00:39:50

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

  • Online Payday Loans

    2018-02-02 00:06:12

    loan cash loan cash loan cash [url=https://cashloans.us.com]one hour payday loans[/url]...

  • Bad Credit

    2018-02-01 21:58:26

    advance loan cash advance usa cash advance loan [url=https://cashadvanceloan.us.com]lending com[/url]...

  • Jamescat

    2018-02-01 21:29:34

    payday loans no credit check bad credit payday loans payday loans direct lender [url=https://paydayloansforbadcredit.stream]payday loan[/url] research essay research report research writing [url=https://researchwriting.stream]research writing[/url] direct payday loan lenders payday lenders direct paydayloans online [url=https://directpaydayloanlenders.webcam]cash advance lenders[/url] writing a thesis for a research paper mastering physics online homework solutions astronomy homework help [url=https://collegeessaywriter...

  • Jamescat

    2018-02-01 21:22:00

    easy payday loans cash advance no credit check internet payday loans [url=https://internetpaydayloans.stream]a payday loan[/url] hot webcam girls hot webcam girls hot webcam girls [url=https://hotwebcamgirls.science]sex webcam[/url] easy online payday loans speedy cash payday loan [url=https://easyonlinepaydayloans.science]easy payday loans online[/url] college paper bbc homework help college paper [url=https://collegepaper.cricket]college essays[/url] easy online payday loans advance payday loans online easy payday loans [url=https://thebestonlinepaydayloans...

  • Jamescat

    2018-02-01 20:49:18

    direct lenders payday loans online payday loans direct lenders payday advance loans [url=https://onlinepaydayloansdirectlenders.science]payday express[/url] english paper database homework help buy an essay [url=https://buyessayonline.stream]buy essay online[/url] easy fast payday loans payday loans direct lenders payday loans online direct lenders [url=https://paydayloansdirectlenders.stream]direct payday lenders online[/url] online payday loans direct lenders online payday loans direct lenders short term loans direct lenders [url=https://shorttermloansdirectlenders...

  • Loans Online

    2018-02-01 20:09:29

    loans online direct payday loans online loans online direct [url=https://loansonline.us.com]online personal loans[/url]...

  • Cash Loan

    2018-02-01 15:56:31

    personal loans no credit check easy loans no credit check loans no credit check [url=https://loansnocreditcheck.us.com]short term loans no credit check[/url]...

  • BryanHof

    2018-02-01 11:46:51

    cосуды Дьюара [url=http://rostehazot.ru/accessories/]купить сосуд дьюара[/url]...

  • MichaelThype

    2018-02-01 11:44:49

    аренда cосудов Дьюара [url=http://rostehazot.ru/accessories/]cосуды Дьюара[/url]...