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

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

  • Frantric

    2017-02-16 11:10:17

    http://eroticpro.ru/vid-szadi Эротика - вид сзади...

  • lauriexy1

    2017-02-16 08:47:03

    My revitalized folio http://sunni.muslim.purplesphere.in/?post.destinee bale inggris venezuela doctor wellnesshotel...

  • Robertexcum

    2017-02-16 07:27:18

    Продам : роликовые конвейеры стоимость конвейерной ленты продам ленту транспортерную конвеерные ленты производители конвейерной ленты Звоните, о цене договоримся. Константин Маринич, тел: (067) 50-44-185 ООО «МегаСТО» 09113, Украина, г. Белая Церковь, ул. Турчанинова, 23 Телефон: (044) 383-14-05, (04563) 4-69-89 Web: http://megasto.com.ua nJ9p9pwq6C...

  • ghjkkklis

    2017-02-16 02:46:38

    [url=http://progon-xrumer.ucoz.net]заказать прогон хрумером[/url]...

  • qqrdpbfs

    2017-02-14 23:11:45

    dufresne reassured zftt noticeable [url=http://symptomhilfezocpx.xyz]olio[/url] hypothetically http://beschwerdencr8oz.xyz mari...

  • Patriotrca

    2017-02-13 15:13:06

    Приветствую Вас друзья[url=http://sfilm.by/]![/url] Предлагаем Вашему вниманию высококачественные профессиональные плёнки. Наша организация"ООО Защитные плёнки" работает 15 лет на рынке этой продукции в Беларуси. Мы можем предложить Вам [url=http://sfilm.by]Защитные плёнки[/url] ,[url=http://sfilm.by]архитектурные плёнки[/url],[url=http://sfilm.by]декоративные плёнки[/url],[url=http://sfilm.by]автомобильные плёнки[/url] и [url=http://sfilm.by]противопожарные плёнки[/url]. Более подробная информация размещена на нашем [url=http://sfilm...

  • Sevid32

    2017-02-13 12:39:10

    anyone buy tizanidine online http://r8tizanidine2mg.forumcircle.com...

  • DanielCip

    2017-02-12 12:33:16

    [url=http://motaxmoto.ru/]купить детский квадроцикл[/url]...

  • Chongvap

    2017-02-12 12:09:37

    Liverpool fans could be in for an unexpected boost [url=https://www.tangsbobet.com][i][u][b]sbobet168[/b][/u][/i][/url] as Sadio Mane's table-topping Senegal face off against Cameroon in the quarter-finals of the Africa Cup of Nations. ​Reds fans will have everything crossed for an Indomitable Lions victory when the teams clash on Saturday, as reported by the ​Liverpool Echo....

  • BobyKn

    2017-02-11 06:26:14

    Таким образом, разница в задержке сигнала заключается во времени, которое уходит на пакетизацию видеопотока и его транспортировку в сети. В небольших сетях с правильно спроектированной и построенной инфраструктурой речь идет о задержке, не превышающей нескольких (2–3) сотен миллисекунд, которая не критична, поскольку видеонаблюдение в редких случаях можно расценивать, как систему реального времени, которая бы требовала мгновенной реакции. В сложных системах с удаленным доступом, где возможны значительные сетевые задержки, аналоговое решение почти всегда окажется сложнореализуемым...