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

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

  • EugeneTit

    2017-04-13 15:39:32

    wh0cd404428 [url=http://viagrageneric.us.org/]viagra online[/url] [url=http://sildenafilnorx.us.com/]sildenafil pharmacy[/url]...

  • AaronPinge

    2017-04-13 15:39:11

    wh0cd486516 [url=http://propecianorx.us.com/]propecia no rx[/url]...

  • CharlesHoups

    2017-04-13 15:29:11

    wh0cd390623 [url=http://amoxicillin20.us/]amoxicillin[/url] [url=http://erythromycin1.top/]erythromycin topical gel[/url] [url=http://buyfurosemide75.top/]buy furosimide[/url] [url=http://buycafergot6.top/]cafergot & internet pharmacy[/url]...

  • Bennydip

    2017-04-13 15:13:50

    wh0cd431680 [url=http://elimite2017.bid/]elimite cream[/url] [url=http://provera2017.cricket/]buy provera[/url] [url=http://cheapviagra17.science/]cheap viagra[/url] [url=http://bupropion2017.bid/]bupropion[/url]...

  • MichaelThync

    2017-04-13 14:44:50

    wh0cd459259 [url=http://viagrageneric.us.org/]viagra tabs[/url] [url=http://sildenafilnorx.us.com/]sildenafil no rx[/url]...

  • AaronPinge

    2017-04-13 14:27:51

    wh0cd454551 [url=http://sildenafilnorx.us.com/]sildenafil no rx[/url] [url=http://propecianorx.us.com/]propecia no rx[/url] [url=http://prozacnorx.us.com/]prozac online[/url]...

  • MichaelThync

    2017-04-13 14:06:00

    wh0cd427294 [url=http://cialisprofessional.us.com/]cialis professional[/url] [url=http://sildenafilnorx.us.com/]Sildenafil No Rx[/url]...

  • Alfredpal

    2017-04-13 13:15:46

    wh0cd431675 [url=http://danazol.top/]danazol without prescription[/url]...

  • EugeneTit

    2017-04-13 12:28:12

    wh0cd340494 [url=http://sildenafilnorx.us.com/]more help[/url] [url=http://propecianorx.us.com/]propecia no rx[/url]...

  • Alfredpal

    2017-04-13 12:02:49

    wh0cd399710 [url=http://furosemide2017.us.com/]furosemide[/url] [url=http://vermox.us.com/]generic vermox[/url]...