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

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

  • MarioShoum

    2017-03-13 09:14:43

    All reseller plans [url=https://2resell.prohoster.info/reseller.php?action=pricing]reseller domains[/url] come with a pre-built, customizable eCommerce storefront with your name on it. Your name will also appear [url=https://2resell.prohoster.info/reseller.php?action=pricing]reseller domains[/url] on the products you sell....

  • Qahoq95

    2017-03-12 07:30:18

    cheap piroxicam drug purchase piroxicam internet http://lanyrd.com/profile/piroxicam-order-online/bio/ http://buypiroxicamfr.soup.io...

  • TracyHorne

    2017-03-11 08:28:57

    wh0cd984172 [url=http://buymobic.us.com/]mobic 7.5 tablet[/url]...

  • TracyHorne

    2017-03-11 08:00:06

    wh0cd952207 [url=http://imdur.club/]imdur[/url] [url=http://zyrtec.club/]zyrtec[/url]...

  • TracyHorne

    2017-03-11 06:23:01

    wh0cd888275 [url=http://buy-arimidex.com/]read more here[/url] [url=http://buyavana.com/]buy avana[/url]...

  • Jamalmoile

    2017-03-11 04:53:56

    "Мотивом к http://laser.inf.ethz.ch/2015/index.php?option=com_k2&view=itemlist&task=user&id=42369 совершению преступления явилось алчность подозреваемого отомстить потерпевшему после то, который последний в 1998 году http://laser.inf.ethz.ch/2015/index.php?option=com_k2&view=itemlist&task=user&id=42369 участвовал в изнасиловании и убийстве его 13-летнего друга", — говорится в сообщении. Официальный избранник регионального следственного управления Кристина Гузовская отметила, который за совершенное едва 20 лет вспять правонарушение потерпевший отбыл подходящий срок...

  • TracyHorne

    2017-03-11 04:51:16

    wh0cd792380 [url=http://bentyltablets.in.net/]bentyl tablets[/url] [url=http://buyarimidex2017.us/]buy arimidex[/url] [url=http://propanolol.in.net/]propranolol[/url]...

  • TracyHorne

    2017-03-11 01:18:53

    wh0cd568622 [url=http://cheapviagrapills.us.com/]cheap viagra pills[/url]...

  • TracyHorne

    2017-03-10 23:46:46

    wh0cd472727 [url=http://seroquel.us.com/]seroquel xr street value[/url]...

  • TracyHorne

    2017-03-10 23:15:55

    wh0cd440762 [url=http://anafranilfordepression.us.com/]ANAFRANIL ONLINE[/url] [url=http://cialis20mg.us.com/]generic cialis best price[/url] [url=http://hyzaar.us.com/]BUYING HYZAAR ONLINE[/url]...