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

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

  • Shanelax

    2017-09-18 16:36:24

    заказать выписку из егрюл с доставкой срочно [url=http://fast-egrn.ru]выписки из егрюл с доставкой[/url]...

  • Williambus

    2017-09-18 16:36:17

    егрн срочно заказать [url=http://fast-egrn.ru]выписку из егрн срочно[/url]...

  • LionelSen

    2017-09-18 09:31:47

    [url=https://lukomore72.ru]Посуточная аренда коттеджей[/url]...

  • DavidFance

    2017-09-17 20:31:06

    yndrbzh http://www.probaiedumontsaintmichel.fr/259-new-balance-999-verte.php http://www.pergolasdemadera.org.es/ray-ban-compra-online-095.htm http://www.convergenc.es/832-air-max-baratas-madrid-tiendas.html http://www.luisseijas.es/929-nike-free-5.0-tr.php http://www.ajedrezlinares.es/adidas-gazelle-rebajas-053.html [url=http://www.ajedrezlinares.es/zx-flux-adidas-torsion-417.html]Zx Flux Adidas Torsion[/url] [url=http://www.crilate.es/ralph-lauren-polo-sport-939.aspx]Ralph Lauren Polo Sport[/url] [url=http://www...

  • Bobbyasymn

    2017-09-17 16:45:22

    Такси межгород Новосибирск специализируется на междугородних пассажирских перевозках из Новосибирска и аэропорта Толмачево по Новосибирской области и всей России и Казахстану. Так же доставляем пассажиров из других городов в г. Новосибирск и аэропорт Толмачево. Возможно, Вы подумаете, что ездить на такси из города в город — это дорого? Ничего подобного, мы разработали для Вас специальные цены, с которыми можно ознакомиться в разделе тарифы. Заказав междугороднее такси Новосибирск у нас, Вы можете больше не смотреть на расписание самолетов, поездов или автобусов...

  • GeorgeLoazy

    2017-09-17 14:25:40

    конкурс красоты номинации международный конкурс Признанные миром [url=http://glory.place]конкурс мисс[/url] международный конкурс Признанные миром конкурс красоты афиша...

  • JohnTum

    2017-09-17 12:59:30

    [url=https://paydayloans.us.org/]california payday loans online[/url]...

  • KenperiHob

    2017-09-17 09:14:31

    Как действует сиалис | Виагра как принимать таблетки http://vvsi2017ed.duckdns.org Присутствие диагностике данного заболевания важную роль играет разряд травмы. Поэтому, может быть ради вас уже приходилось брать Виагру в аптеке сиалис софт екатеринбург либо вы лишь намереваетесь приобрести Сиалис в Воронеже либо приобрести Левитру, в любом случае, отбор должен продолжаться обоснованным и естественно же воспрещается гнушаться чтением аннотации перед применением Виагры, Левитры и Сиалиса. Для обеспечения активного отдыха опосля мышечной работы используются различные средства...

  • JohnTum

    2017-09-16 19:52:15

    [url=https://paydayloans.us.org/]payday loans[/url]...

  • JohnTum

    2017-09-16 03:55:12

    [url=https://paydayloans.us.org/]payday loans[/url]...