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

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

  • TracyHorne

    2017-04-02 15:23:48

    wh0cd326693 [url=http://prozacnorx.us.com/]prozac price[/url] [url=http://viagrageneric.us.org/]viagra generic[/url] [url=http://cialisprofessional.us.com/]generic cialis[/url]...

  • Alfredpal

    2017-04-02 14:53:17

    wh0cd605306 [url=http://cialisgeneric17.science/]cialis[/url] [url=http://furosemide17.science/]lasix vs furosemide[/url] [url=http://robaxin2017.science/]robaxin[/url]...

  • EugeneTit

    2017-04-02 14:37:00

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

  • MichaelThync

    2017-04-02 13:54:57

    wh0cd509393 [url=http://prozacnorx.us.com/]prozac no rx[/url] [url=http://sildenafilnorx.us.com/]sildenafil no rx[/url]...

  • TracyHorne

    2017-04-02 12:48:57

    wh0cd262763 [url=http://propecianorx.us.com/]propecia tablets[/url] [url=http://viagrageneric.us.org/]Viagra Online[/url]...

  • CharlesHoups

    2017-04-02 11:57:50

    wh0cd692103 [url=http://buyclomid3.top/]clomid steroid[/url] [url=http://bupropion6.top/]bupropion[/url] [url=http://azithromycin-1.us/]azithromycin 500mg[/url] [url=http://lisinopril20mg.review/]lisinopril[/url] [url=http://buycelebrex11.top/]celebrex[/url]...

  • Alfredpal

    2017-04-02 11:45:41

    wh0cd541376 [url=http://adalat500.top/]adalat[/url] [url=http://effexor4.top/]effexor[/url] [url=http://adalat7.top/]adalat[/url] [url=http://nexium100.us/]nexium[/url]...

  • ScottFet

    2017-04-02 11:40:32

    http://volvopremium.ru/ [url=http://volvopremium.ru] [/url] volvopremium.ru...

  • TracyHorne

    2017-04-02 11:26:50

    wh0cd230792 [url=http://cialisprofessional.us.com/]buy cialis[/url] [url=http://propecianorx.us.com/]propecia no rx[/url]...

  • EugeneTit

    2017-04-02 11:11:15

    wh0cd294740 [url=http://sildenafilnorx.us.com/]Sildenafil No Rx[/url] [url=http://prozacnorx.us.com/]Purchase Prozac[/url] [url=http://cialisprofessional.us.com/]buy cialis[/url]...