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

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

Коментарi

  • Billyanymn

    2017-11-25 23:16:25

    Новости компьютерного мира тут [url=http://rebenokboleet.ru/]rebenokboleet.ru[/url]...

  • Pay Day Loan

    2017-11-25 17:50:03

    fast loans short term loans no credit check quick short term loans [url=https://shorttermloans.us.com]short term loans[/url]...

  • Loans For Bad Credit

    2017-11-25 16:56:39

    personal loans bad credit texas best personal loan rates personal loans bad credit [url=https://badcreditpersonalloans.us.com]personal loans with bad credit and no cosigner[/url]...

  • Hassanfer

    2017-11-25 15:47:26

    Последние компьютерные новости здесь [url=http://wtsolutions.ru/]wtsolutions.ru[/url]...

  • Premium Assignments

    2017-11-25 14:19:30

    essay online help help on essay college essay [url=https://collegeessay.us.com]college essay prompts[/url]...

  • Payday Loan

    2017-11-25 09:49:47

    quick loans for bad credit fast cash loans with bad credit quick loans rates [url=https://quickloans.us.com]quick personal loans[/url]...

  • Direct Lenders

    2017-11-25 09:15:01

    easy money loans short term payday loans small payday loans [url=https://shorttermloans.us.com]payday loans[/url]...

  • Payday

    2017-11-25 03:45:04

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

  • StevenCoota

    2017-11-24 22:17:13

    exmo [url=http://cryptocalco.in]майнергейт[/url]...

  • Pamcat

    2017-11-24 21:05:19

    easy online payday loans easy online payday loans easy payday loans [url=https://easypaydayloans.cricket]payday advance online[/url] online payday loan lender online payday loan lender online payday loan lenders [url=https://bestpaydayloanonline.stream]payday loan online[/url] live sex chat free live sex chat chat porn [url=https://livesexchat.bid]free live sex chat[/url] writing my paper paper writing essay writing [url=https://writingservices.trade]paper writing[/url] guaranteed payday loans guaranteed payday loans online loans no credit check instant approval [url=https://guaranteedpaydayloans...