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

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

  • Patrickpar

    2017-05-18 19:07:22

    winning job application letter sample...

  • AnthonyGax

    2017-05-18 11:36:42

    Our service online homework help is best suited for students of any grade. The main motive to help students with their homework is not to get good grades, but also help them learn the concepts clear. We are working 24X7, to help students when they need us. We provide online homework help in economics, statistics, accounting, finance, mathematics, physics, chemistry, biology, management, engineering, computer science, etc. Some of our specialized services include essay writing, letter writing, dissertation, thesis writing, research papers, computer programming, economic and statistical analysis...

  • Antibioticsmal

    2017-05-15 03:24:19

    Bacterial gastroenteritis happens when bacteria causes an infection in your gut http://a2.antibioticsonlinehelp.com. This causes redness in your adopt and intestines. You may also empathize with symptoms like vomiting, obdurate abdominal cramps, and diarrhea. While viruses cause multifarious gastrointestinal infections, bacterial infections are also common. Some people pray this infection “food poisoning. Bacterial gastroenteritis can paphos cipro recensioni trattoria fruit from short hygiene. Infection...

  • CurtisEmend

    2017-05-14 01:28:01

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

  • Billytow

    2017-05-13 02:15:05

    http://vulcan-stavka.club/...

  • Dwaynewes

    2017-05-12 21:26:24

    http://saralelakarat.com/index.php?option=com_k2&view=itemlist&task=user&id=104489 http://www.grossistiitticovenezia.it/index.php?option=com_k2&view=itemlist&task=user&id=302414 http://supplyconceptsinc.com/component/k2/itemlist/user/1216928 http://www.futuresearchzambia.org/index.php?option=com_k2&view=itemlist&task=user&id=23530 http://www.laserworld.com.au/index.php?option=com_k2&view=itemlist&task=user&id=157916 http://geospedition.com/index.php?option=com_k2&view=itemlist&task=user&id=168666 http://www...

  • EdgarGlozy

    2017-05-12 21:24:23

    http://styleforme.destinyprezents.com/index.php?option=com_k2&view=itemlist&task=user&id=322898 http://ascentcycle.com/index.php?option=com_k2&view=itemlist&task=user&id=582268 http://www.milazzo.info/component/k2/itemlist/user/42346 http://www.funtimebrindes.com.br/index.php?option=com_k2&view=itemlist&task=user&id=113422 http://atelierliseteaires.pt/index.php?option=com_k2&view=itemlist&task=user&id=112534 http://www.tuscancountrystore.com/index.php?option=com_k2&view=itemlist&task=user&id=120833 http://mooresrowland...

  • Jeffreywoups

    2017-05-12 20:46:04

    i-excel — Шаблоны WordPress. Скачать бесплатно премиум шаблон Вордпресс [url=http://ruwordpress.ru/i-excel/]More info![/url]...

  • Patrickfag

    2017-05-12 08:14:24

    [URL=http://sexosochi.ru]проститутки сочи[/URL] [URL=https://sexosochi.com]проститутки сочи[/URL] [URL=https://sexosochi.mobi]проститутки сочи[/URL] [URL=https://sexosochi.club]проститутки сочи[/URL] на одном сайте. Реальные фото и анкеты лучших индивидуалок Сочи. Фотографии девушек из Адлера. Контакты. Стоимость....

  • Kennethwaili

    2017-05-12 02:01:09

    завидный сайт http://xdoza.com/minet/...