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

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

  • Assignment Helpers

    2018-01-28 19:44:46

    paper writing service paper writing service essay paper writing service [url=https://paperwritingservice.us.com]paper writing service[/url]...

  • Pay For Essay Online

    2018-01-28 19:36:41

    research essay research paper buy argumentative essay papers [url=https://researchessay.us.com]research essay[/url]...

  • Assignment Helpers

    2018-01-28 18:56:57

    paper writing services paper writing service help write my story [url=https://paperwritingservice.us.com]writing assignment[/url]...

  • Jamescat

    2018-01-28 16:38:28

    quick loan speedy cash payday loans online payday loans on line [url=https://quickloans.cricket]quick loan[/url] direct lenders payday loans paydayloans online direct payday lenders online [url=https://paydayloansdirectlenders.stream]payday loans direct lenders only[/url] wife on webcam free sex cams webcam porn [url=https://webcampussy.webcam]wife on webcam[/url] online essay online essay online essay [url=https://buyessayonline.stream]buy essay online[/url] fast payday loans online payday loans fast payday loans [url=https://fastpaydayloans...

  • White Paper Writer

    2018-01-28 13:52:25

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

  • Custom Essay Writing

    2018-01-28 13:22:45

    essay writer essay editor essay writer [url=https://essaywriter.us.com]the best college essays[/url]...

  • Custom Essay Writer

    2018-01-28 11:51:37

    writing essay for scholarship writing my essay essay writing [url=https://essaywriting.us.com]essay writing[/url]...

  • AngeloLet

    2018-01-28 11:47:33

    porn video with animals [url=http://sex-by.ru/]porn sex video[/url]...

  • Buy Essay.Org

    2018-01-28 10:55:45

    write a paper online college paper writing write my paper for me [url=https://writemypaperforme.us.com]paper writer[/url]...

  • Jamescat

    2018-01-28 06:51:50

    a payday loan emergency loan no credit check payday loan [url=https://apaydayloan.bid]bad credit[/url] help with economics homework websites for essays college essay help [url=https://goodcollegeessays.science]good college essays[/url] best payday loan online online payday loan lender online payday loan [url=https://onlinepaydayloaninstantapproval.loan]online payday loan instant approval[/url] online payday loans direct lenders direct payday loan lenders easy loans [url=https://shorttermloansdirectlenders...