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

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

Коментарi

  • Bennydip

    2017-05-08 00:29:19

    wh0cd382340 [url=http://vermox.us.org/]Order Vermox[/url]...

  • Kennethrig

    2017-05-07 23:37:52

    wh0cd761746 [url=http://atarax.us.org/]ORDER ATARAX[/url]...

  • Kennethrig

    2017-05-07 22:16:24

    wh0cd707386 [url=http://bentylprice.us.com/]cheapest bentyl[/url] [url=http://atarax.us.org/]atarax[/url] [url=http://onlineclonidine.us.com/]Clonidine[/url]...

  • Bennydip

    2017-05-07 21:47:02

    wh0cd273618 [url=http://effexor3.us/]Effexor Pills[/url] [url=http://buylisinopril.us.com/]buy lisinopril[/url] [url=http://neurontin2016.us.com/]neurontin[/url]...

  • Kennethrig

    2017-05-07 20:51:41

    wh0cd653026 [url=http://zoloftonline.us.com/]Zoloft Online[/url] [url=http://toradol15mg.us.com/]toradol iv[/url] [url=http://buybuspar.us.org/]buy buspar[/url]...

  • LarrySen

    2017-05-07 19:55:33

    join the new social [url=http://onlinecasinos-x.com]online casino[/url] guide...

  • Bennydip

    2017-05-07 14:00:12

    wh0cd578260 [url=http://onlinemedrol.us.com/]Medrol Online[/url]...

  • Kennethrig

    2017-05-07 13:57:21

    wh0cd381222 [url=http://celebrex.us.com/]cheap celebrex[/url] [url=http://buycialisonline.us.com/]buy cialis online[/url] [url=http://effexorxr.us.com/]generic for effexor[/url]...

  • GanJubas

    2017-05-07 13:23:21

    Hi! My project is fro odd products in all languages: Albanian, Armenian, Azerbaijani, Bulgarian, Chinese (Simplified), Croatian, Czech, Danish, Dutch, Estonian, Finnish, French, Georgian, German, Greek, Hindi, Hungarian, Indonesian, Irish, Italian, Javanese, Kazakh, Kyrgyz, Latvian, Lithuanian, Luxembourgish, Macedonian, Malay, Norwegian, Polish, Portuguese, Romanian, Russian, Slovak, Slovenian, Spanish, Swedish, Tajik, Tamil, Thai, Turkish, Ukrainian, Uzbek, Vietnamese and other! And all Offers:...

  • Alfredpal

    2017-05-07 12:47:27

    wh0cd272504 [url=http://baclofen.us.org/]baclofen tablets[/url] [url=http://bentyl10mg.us.com/]example[/url] [url=http://buyanafranil.us.org/]buy anafranil[/url]...