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

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

  • Money Loan

    2018-02-05 17:58:24

    loans online online personal loans spot loans online [url=https://loansonline.us.com]loans online[/url]...

  • Davidbon

    2018-02-05 15:22:15

    Привет всем! Класный у вас сайт Нашел прикольные скачать меню сервера cs 1 6 http://serveracs16.net/ : [b] айпи сервера кс 1 6 зомби с випкой [/b] http://serveracs16.net/game/cs [url=http://serveracs16.net/game/csgo] сервер майнкрафт с модами кс го [/url] [url=http://serveracs16.net/game/source] сделать сервер видимым в интернете css [/url] И тут нашёл много интересных новостей про игры и сервера: http://serveracs16.net/server_info/85.113.41.142:27707/...

  • Paper Writer Free

    2018-02-05 15:08:26

    best article writing services write my paper online creative thinking problem solving [url=https://writemypaperforme.us.com]write my paper for me[/url]...

  • Payday Express

    2018-02-05 10:57:42

    cash advance houston direct online payday loans online payday advance [url=https://cashadvanceloan.us.com]cash advance usa[/url]...

  • Get A Loan

    2018-02-05 10:42:25

    loans instant approval personal loans reviews loans instant approval [url=https://loansinstantapproval.us.com]instant loans online[/url]...

  • Personal Loans

    2018-02-05 10:24:25

    loan application specialized loan services loan application [url=https://onlineloan.us.com]online loan[/url]...

  • Assignment Operators

    2018-02-05 09:07:33

    homework help college homework help do my homework for me [url=https://homeworkhelp.us.com]college homework help[/url]...

  • Online Payday Loan

    2018-02-05 08:07:49

    online loan installment loans online direct lender loan application [url=https://onlineloan.us.com]loan site[/url]...

  • Term Paper Writers

    2018-02-05 06:04:53

    essay writing essay writing help essay service [url=https://essaywriting.us.com]writing essay[/url]...

  • Buy College Essay

    2018-02-05 05:10:15

    term paper term papers term paper help [url=https://termpaper.us.com]term paper[/url]...