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

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

  • Janecat

    2018-01-01 02:09:01

    car insurance compare car insurance car insurance [url=https://carinsurance.us.org]compare car insurance[/url]...

  • Direct Lenders

    2018-01-01 00:37:49

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

  • cheap car ins

    2017-12-31 23:44:35

    compare car insurance rates compare car insurance quotes compare car insurance [url=https://comparecarinsurance.us.com]affordable insurance[/url]...

  • Janecat

    2017-12-31 23:14:14

    cheap car insurance quotes car insurance quotes automobile insurance quotes [url=https://autoinsurancequotes.us.com]auto insurance quotes[/url]...

  • Katrinainsib

    2017-12-31 21:36:48

    Female Cat Names - Pet Health Zone - Nationwide Pet Insurance . CatFoodThat CausesUrinaryProblems- Your browser indicates if you've vidited this link CatFoodThat CausesUrinaryProblems . ... man-madecatfoodis not necessarily whatcatshave evolved to eat. There are plenty of healthycatfoodproducts, ... More results. [url=http://cat-love-nips.gq/stop-cat-spraying/39-how-to-make-a-cat-house-for-feral-cats.html]How to make a cat house for feral cats[/url] [url=http://cat-love-nips.gq/childrens-cat-toys/80-keep-your-cat-off-furniture...

  • Direct Lender Loans

    2017-12-31 21:26:31

    payday loan advance cash payday loan payday [url=https://payday.us.com]payday[/url]...

  • Quick Loan

    2017-12-31 21:02:06

    payday payday express payday loans online direct lender [url=https://payday.us.com]payday[/url]...

  • Loans For Bad Credit

    2017-12-31 19:36:01

    payday advance online loan cash cash advance [url=https://cashadvance.us.org]best online payday loans[/url]...

  • Pay Day Loan

    2017-12-31 15:46:29

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

  • Janecat

    2017-12-31 15:19:10

    payday loan online payday loan online quick loans [url=https://onlineloans.us.com]direct lender loans[/url]...