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

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

  • Raymondber

    2018-01-11 21:16:55

    [url=https://alicante-house.ru]новостройки в аликанте[/url]...

  • Janecat

    2018-01-11 20:19:39

    is there a website that writes essays for you buy essay best website for essay writing [url=https://buyessay.us.com]buy essay[/url]...

  • Get A Loan

    2018-01-11 19:59:38

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

  • Loan

    2018-01-11 19:47:03

    loan payday loans online payday loan [url=https://loan.us.org]get a loan[/url]...

  • Janecat

    2018-01-11 19:20:20

    payday loans bad credit payday loans online for bad credit personal credit loans [url=https://badcreditpersonalloans.us.com]personal loans for people with bad credit[/url]...

  • Jamescat

    2018-01-11 18:07:53

    webcam dildo free nude cams webcam sluts [url=https://webcammasturbation.stream]webcam sluts[/url] quick loans quick loans 100 approval quick loans [url=https://quickloans.trade]quick loans 100 approval[/url] cash advance loan payday advance loan cash advance loan [url=https://cashadvanceloan.bid]cash advance loan[/url] instant online payday loan instant online payday loan instant online payday loan [url=https://instantonlinepaydayloan.cricket]instant online payday loan[/url] essay prompts buy college essay essay prompts [url=https://essayprompts...

  • Pamcat

    2018-01-11 18:07:39

    fastest payday loan payday advance loan fastest payday loan [url=https://fastestpaydayloan.stream]paydayloan[/url] internet payday loans no credit check loan online payday loan lenders [url=https://onlinepaydayloanlender.loan]pay day lenders[/url] online payday loans direct lenders direct payday lenders online payday advance online [url=https://onlinepaydayloansdirectlenders.science]online payday loans direct lenders[/url] online payday loan instant approval online payday loan instant approval loans online instant approval [url=https://onlinepaydayloaninstantapproval...

  • Rolicbow

    2018-01-11 17:42:50

    Hola, Me gusta mucho tu sitio, ?sigue haciendolo mejor! ttgg.titgelspain.bid/map6.php...

  • car insurance prices

    2018-01-11 16:51:23

    compare car insurance compare auto insurance quotes compare car insurance [url=https://comparecarinsurance.us.com]motorcycle insurance quotes online comparison[/url]...

  • accurate automotive

    2018-01-11 16:36:47

    auto insurance cheap auto insurance cheap auto insurance [url=https://carinsurance.us.org]direct car insurance[/url]...