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

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

  • CharlesHoups

    2017-05-09 00:11:07

    wh0cd273616 [url=http://viagracanada.us.com/]Viagra Canada[/url]...

  • CharlesHoups

    2017-05-08 21:40:52

    wh0cd164896 [url=http://buyatarax.us.com/]buy atarax[/url]...

  • Kennethrig

    2017-05-08 20:09:40

    wh0cd511456 [url=http://cheapgenericviagra.us.com/]cheap generic viagra[/url] [url=http://onlinecymbalta.us.com/]online cymbalta[/url]...

  • CharlesHoups

    2017-05-08 18:37:35

    wh0cd56176 [url=http://cephalexin365.us.com/]cephalexin mail order[/url]...

  • Bennydip

    2017-05-08 18:00:08

    wh0cd23336 [url=http://amoxicillin500mg.us.com/]purchase amoxicillin[/url]...

  • Bennydip

    2017-05-08 16:41:51

    wh0cd980304 [url=http://onlineventolin.us.com/]online ventolin[/url] [url=http://prednisonenorx.us.com/]PREDNISONE[/url]...

  • CharlesHoups

    2017-05-08 16:25:13

    wh0cd578256 [url=http://sexkuren.com/viagra.html]köpa viagra sverige[/url]...

  • Kennethrig

    2017-05-08 15:46:52

    wh0cd348376 [url=http://chloramphenicol247.club/]cheap chloramphenicol[/url]...

  • Bennydip

    2017-05-08 15:15:06

    wh0cd925944 [url=http://atarax.sexy/]atarax[/url] [url=http://triamterene.photography/]triamterene-hctz[/url] [url=http://tadacip.world/]buy tadacip online[/url] [url=http://benicar.ltd/]benicar hct price[/url]...

  • CharlesHoups

    2017-05-08 14:45:39

    wh0cd523896 [url=http://flagyl500mg.us.com/]flagyl[/url] [url=http://viagrasoft.us/]buy viagra soft[/url] [url=http://buytadacip.us.com/]buy tadacip[/url]...