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

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

Коментарi

  • Rafaelspoxy

    2017-11-14 03:32:07

    Популярные женские новости тут [url=http://laform.ru/]laform.ru[/url]...

  • Jamescat

    2017-11-14 02:12:37

    successful college essay dissertation writing service uk custom dissertation writing [url=https://paperwriting.stream]writing a paper[/url] payday loans online direct lender bad credit payday loans direct lenders fast cash loans [url=https://paydayadvanceloan.trade]advance cash payday loan[/url] adult video chat free adult webcam chat adult video chat [url=https://freeadultvideochat.stream]free adult video chat[/url] paydayloan direct payday lenders bad credit payday lenders direct [url=https://paydaylendersdirect...

  • Jamescat

    2017-11-14 01:58:33

    https://onlineloans.us.com/ payday loans online payday loans online [url=https://onlineloans.us.com/]click[/url]...

  • Jamescat

    2017-11-13 20:47:45

    write my essay essay writing service help me with my essay [url=https://writemyessay.us.com]essay online[/url]...

  • Jamescat

    2017-11-13 16:22:19

    scholarship essay help writing a narrative essay writing essays in college [url=https://scholarshipessay.webcam]scholarship essay[/url] payday loans online online payday loans online payday loans [url=https://onlinepaydayloans.bid]online payday loans[/url] adult chats adult chats adult chat [url=https://adultchats.science]mature cams[/url] free porn cams live cams free porn cams [url=https://freeporncams.stream]free porn cams[/url] instant online payday loan best payday loan online online payday loan instant approval [url=https://instantonlinepaydayloan...

  • Fastest Payday Loan

    2017-11-13 12:48:40

    usa loans short term loans online internet payday loans [url=https://shorttermloans.us.com]payday online loans[/url]...

  • Instant Online Loans

    2017-11-13 04:39:11

    short loans short term cash loans short term loans for bad credit [url=https://shorttermloans.us.com]fast loans online[/url]...

  • Money Loan

    2017-11-12 19:05:16

    bad credit personal loans personal loans bad credit best personal loan [url=https://badcreditpersonalloans.us.com]bad credit personal loans[/url]...

  • ClaudeUtess

    2017-11-12 18:23:36

    Последние новости строительства здесь [url=http://distroy.ru/]distroy.ru[/url]...

  • Online Payday Loan

    2017-11-12 14:38:28

    i have bad credit and need a personal loan bad credit personal loans guaranteed approval payday loans for bad credit online [url=https://badcreditpersonalloans.us.com]bad credit personal loans[/url]...