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

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

  • RobertUnofe

    2017-06-04 23:34:02

    Всем привет! класный у вас сайт! Интересная инфа: [b] [url=http://kinoklan.net/]Лучшие мультфильмы бесплатно[/url] Тут: [url=http://kinoklan.net/news/3391-daniel-zaharias-na-kiev-filmmaking-camp-v-shtatah-s-vami-ne-budut-razgovarivat-bez-deneg.html] Даниэль Захариас на Kiev Filmmaking Camp: «В Штатах с вами не будут разговаривать без денег» [/url] Здесь: [b] Закон каменных джунглей (Сезон 1) (2015) [/b] http://kinoklan.net/drama/6728-zakon-kamennyh-dzhungley-sezon-1-2015.html Тут: [b] Рецензия: «Солнечный удар» - провал культурного наступления [/b] http://kinoklan...

  • Alfredpal

    2017-06-04 23:26:07

    wh0cd902187 [url=http://bupropion2016.us.com/]generic bupropion[/url] [url=http://cheapcialisonline.us.com/]Cheap Cialis Online[/url] [url=http://abilifynorx.us.com/]abilify 15 mg[/url] [url=http://buy-erythromycin.com/]erythromycin 333 mg[/url] [url=http://femaleviagra.click/]buy female viagra[/url]...

  • CharlesHoups

    2017-06-04 22:58:32

    wh0cd588471 [url=http://cheapcialisgeneric.us.com/]cheap cialis generic[/url]...

  • CharlesHoups

    2017-06-04 21:10:23

    wh0cd534111 [url=http://amoxil3.us/]amoxil antibiotic[/url]...

  • CurtisEmend

    2017-06-04 20:46:46

    Последние женские новости здесь [url=http://logwoman.ru/]logwoman.ru[/url]...

  • Bennydip

    2017-06-04 20:22:07

    wh0cd544303 [url=http://nolvadex2010.gdn/]nolvadex buy[/url] [url=http://azithromycin5.top/]azithromycin[/url] [url=http://buyviagra9.top/]viagra[/url] [url=http://buywellbutrin50.top/]look at this[/url] [url=http://buyviagrasoft20.top/]buy viagra soft[/url] [url=http://medrol-8.top/]medrol[/url]...

  • CalvinRen

    2017-06-04 18:37:02

    Строительство и ремонт, читайте сайт [url=http://roofor.ru]roofor.ru[/url]...

  • RktmeplKanna

    2017-06-04 15:56:39

    anabolic steroids legal are anabolic steroids illegal http://anaisabelaparicio.com/index.php?option=com_k2&view=itemlist&task=user&id=124911 list of anabolic steroids list of anabolic steroids where to buy anabolic steroids anabolic steroids names http://orijental.co.rs/index.php?option=com_k2&view=itemlist&task=user&id=15182 anabolic steroids are primarily used in an attempt to how are anabolic steroids made anabolic steroids pills anabolic steroids street names http://cororondalosforamontanos.com/index...

  • Alfredpal

    2017-06-04 13:56:56

    wh0cd576022 [url=http://buyalbendazole17.top/]buy albendazole[/url] [url=http://doxycycline2011.top/]doxycycline[/url] [url=http://buyavodart250.top/]avodart[/url] [url=http://buyadalat365.top/]buy adalat[/url] [url=http://bupropion9.gdn/]generic bupropion[/url] [url=http://yasmin2017.top/]yasmin pill[/url] [url=http://retina-9.top/]retin a[/url]...

  • CharlesHoups

    2017-06-04 13:08:20

    wh0cd262305 [url=http://albuterolnebulizer.us.com/]albuterol pills[/url] [url=http://celexa.us.com/]buy celexa[/url]...