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

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

  • NathanMayPe

    2017-09-06 08:43:04

    Читайте много информации о рецептах [url=http://zonakulinara.ru]zonakulinara.ru[/url]...

  • DavidWag

    2017-09-05 10:19:46

    Нашу услугу можно найти тут [url=http://presto77.ru/uslugi/zakazat-vipisku-iz-egrul]заказать выписку из егрюл[/url]...

  • MichaelThync

    2017-09-04 11:04:49

    wh0cd2217613 [url=http://propecia.us.com/]propecia[/url]...

  • MichaelThync

    2017-09-04 11:04:36

    wh0cd2144150 [url=http://buy-arimidex.reisen/]arimidex[/url]...

  • MichaelThync

    2017-09-04 10:15:15

    wh0cd454256 [url=http://vardenafil.world/]purchase vardenafil[/url] [url=http://genericzoloft.pro/]zoloft[/url]...

  • BrettAginc

    2017-09-04 09:17:08

    wh0cd1850258 [url=http://cipro.directory/]cipro[/url] [url=http://cymbaltageneric.reisen/]cymbalta[/url]...

  • Billymup

    2017-09-04 06:42:34

    wh0cd1776763 [url=http://genericlevitra.pro/]generic levitra online[/url] [url=http://tretinoincream005.pro/]tretinoin gel .05[/url]...

  • MichaelThync

    2017-09-04 05:50:58

    wh0cd307303 [url=http://lasix.store/]lasix 100mg[/url]...

  • CharlesHoups

    2017-09-04 05:24:54

    wh0cd1703306 [url=http://fluoxetine20mg.pro/]fluoxetine[/url] [url=http://buy-atarax.shop/]buy atarax[/url]...

  • BrettAginc

    2017-09-04 04:41:49

    wh0cd1703310 [url=http://trazodone.tools/]trazodone[/url] [url=http://avodart.reisen/]avodart[/url]...