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

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

  • Jamescat

    2018-01-25 09:03:25

    strip club webcam adult chat webcam sluts [url=https://webcammasturbation.stream]porn shows[/url] payday advance loan speedy cash payday loans online payday loans online direct lender [url=https://cashadvanceloan.bid]online payday advance loan[/url] research essay research essay essay prompts [url=https://essayprompts.cricket]my math homework online[/url] buying assignments online school papers research papers [url=https://schoolpapers.cricket]school papers[/url] best payday loan online easy online payday loans easy online payday loans [url=https://easyonlinepaydayloans...

  • Pay Day Loan

    2018-01-25 07:19:39

    installment loans no credit 100 day payday loan installment loans [url=https://installmentloans.us.com]installment loans[/url]...

  • Quick Loans

    2018-01-25 06:43:26

    payday advances payday advance payday advance [url=https://paydayadvance.us.com]payday advances[/url]...

  • Jamescat

    2018-01-25 06:38:49

    webcam dildo webcam masturbation camsluts [url=https://webcammasturbation.stream]webcam sluts[/url] direct payday lenders payday lenders direct easy payday loan [url=https://paydaylendersdirect.webcam]no credit check payday loans instant approval[/url] dissertation help law homework help writing my essay [url=https://essaywriting.trade]writing my essay[/url] payday loans online direct lenders loans with no credit check payday loans online [url=https://onlineloansdirectlenders.stream]online loans direct lenders[/url] quick loans 100 approval getting a loan quick loans 100 approval [url=https://quickloans100approval...

  • Best Payday Loan

    2018-01-24 20:28:20

    loan from low cost loans advance cash [url=https://cashadvanceloan.us.com]no fuss payday loans[/url]...

  • Write My Essay

    2018-01-24 19:22:50

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

  • The Assignments

    2018-01-24 19:03:17

    trusted essay writing service writing service essay writing services [url=https://essaywritingservices.us.org]proofreading service[/url]...

  • Loans

    2018-01-24 17:53:40

    direct payday loan lender loans no credit check loans no credit check [url=https://loansnocreditcheck.us.com]easy loans no credit check[/url]...

  • Janecat

    2018-01-24 17:09:20

    payday loans online payday loans online online payday loans no credit check [url=https://paydayloansonline.us.org]payday loans direct lenders only[/url]...

  • Jamescat

    2018-01-24 16:48:22

    best payday loans online best payday loans online quick loans 100 approval [url=https://bestpaydayloans.stream]best payday loans[/url] buy essay online buy essay online do my school work [url=https://buyessayonline.cricket]help with essay[/url] cam sites webcam sex cam sites [url=https://camsites.cricket]porn webcam[/url] internet payday loans guaranteed payday loans no credit check emergency loans [url=https://guaranteedpaydayloans.webcam]no credit check loan[/url] common application essay prompts how to write essays buy a essay [url=https://commonapplicationessayprompts...