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

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

  • Writers Essay

    2017-11-06 04:50:29

    help writing a college essay buy essay pay for essays [url=https://buyessays.us.com]buy essay without plagiarism[/url]...

  • Term Paper Writer

    2017-11-06 03:32:34

    university essay help writing an essay for college help essay [url=https://collegeessay.us.com]college essays[/url]...

  • Loans Online

    2017-11-06 00:19:10

    payday loans quick cash quick personal loans in new york loans quick approval [url=https://quickloans.us.com]quick cash payday loans[/url]...

  • Shanen

    2017-11-05 23:23:22

    Brand Name Cialis For Sale [url=http://costofcial.com]cialis[/url] Cialis Super Active 20mg Reviews Online Doxycycline Forum Cialis Ocupa Receta Medica...

  • Buy Essay Paper

    2017-11-05 21:26:15

    buy essay order essay paper buy essay online [url=https://buyessays.us.com]help with essay writing[/url]...

  • RaymondPycle

    2017-11-05 20:59:42

    Последние строительные новости здесь [url=http://vystroim.com/]vystroim.com[/url]...

  • Write Essay Service

    2017-11-05 19:58:27

    buy essay buy an essay order essay online cheap [url=https://buyessay.us.com]buy essays[/url]...

  • Online Loans

    2017-11-05 17:57:01

    payday loans bad credit ok bad credit personal loans guaranteed approval payday loans bad credit [url=https://badcreditpersonalloans.us.com]joint loans for bad credit[/url]...

  • Easy Payday Loan

    2017-11-05 17:14:16

    personal loans with bad credit same day personal loans personal loans bad credit ok [url=https://badcreditpersonalloans.us.com]personal loans bad credit reviews[/url]...

  • Anthonyinsib

    2017-11-05 12:56:26

    How to Get YourDogstoSleepOutside PetHeloful Your browser indicates if you've visited this link . How To RemoveCatUrineFrom Upholstery - Your browser indicates if you've visited thisa link . [url=http://122caquipen-nesf.soup.io/]Diet for cats with urinary problems[/url] [url=http://597dempgraven-bi2e.soup.io/]Cat peeing all over house[/url] why do female cats pee on things [Online]. Are You Filled With Despair Because othing Works? Read My Story How to Stop!, why do female cats pee on things :100% Cats Urinate on Your Clothes & Bed...