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

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

Коментарi

  • Kennethrig

    2017-06-04 00:57:30

    wh0cd651911 [url=http://albuterol24.us.org/]Albuterol Tabs[/url] [url=http://albendazole24.us.org/]albendazole[/url] [url=http://sildenafil24h.us.org/]sildenafil 100mg[/url]...

  • Bennydip

    2017-06-04 00:22:17

    wh0cd848955 [url=http://cialis24.us.org/]cialis[/url] [url=http://viagrageneric24.us.org/]generic viagra discounted[/url] [url=http://advair24.us.org/]advair price[/url]...

  • FrankBub

    2017-06-03 22:10:30

    xn----8sbcketlg0axz.xn--80adxhks yadex yadex portal portal supportforum yadex support yadex google http://кредит-банк.москва/ portal forum yadex forum googleforum support portal portal portal...

  • Samuelapoto

    2017-06-03 21:48:10

    http://банки-кредиты.москва/ board yandex board google board forum forum portal board portal xn----7sbcoeqdlc0a1b1a1j.xn--80adxhks board google yandex forum google dom2.vip...

  • Johnniecaf

    2017-06-03 21:48:02

    http://банки-кредиты.москва/ forum rambler portal rambler portal yandex google forum google yandex xn----7sbcoeqdlc0a1b1a1j.xn--80adxhks rambler forum yandex portal yandex dom2.vip...

  • trutikTex

    2017-06-03 21:36:09

    301 Moved Permanently [url=https://taldom-stixi.ru]Show more!..[/url]...

  • Kennethrig

    2017-06-03 21:28:58

    wh0cd543191 [url=http://dapoxetine247.us.com/]dapoxetine[/url] [url=http://indomethacin.us.com/]indomethacin tablets[/url]...

  • CharlesHoups

    2017-06-03 21:25:42

    wh0cd621309 [url=http://buysildalis.us.com/]sildalis mastercard[/url] [url=http://buyelimite.us.com/]buy elimite[/url] [url=http://wellbutrin365.us.com/]wellbutrin[/url] [url=http://tadalis.us.com/]Generic Tadalis[/url] [url=http://vantin.us.com/]vantin[/url]...

  • CharlesHoups

    2017-06-03 20:10:38

    wh0cd566949 [url=http://cialis20mg247.us.org/]best place to buy cialis online[/url] [url=http://cephalexin247.us.org/]keflex antibiotics[/url]...

  • Kennethrig

    2017-06-03 19:45:10

    wh0cd488831 [url=http://cheapcialisgeneric.us.com/]Cheap Cialis Generic[/url] [url=http://onlinelisinopril.us.com/]zestoretic[/url] [url=http://propranolol.us.org/]order propranolol online[/url] [url=http://zithromax365.us.com/]zithromax[/url] [url=http://seroquel2017.us.com/]seroquel online[/url]...