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

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

Коментарi

  • Patrickpar

    2017-04-06 17:18:00

    best essay on humanity...

  • TracyHorne

    2017-04-06 16:55:36

    wh0cd25201 [url=http://sildenafilnorx.us.com/]sildenafil pharmacy[/url]...

  • TracyHorne

    2017-04-06 14:39:05

    wh0cd975095 [url=http://viagrageneric.us.org/]cheap viagra[/url] [url=http://sildenafilnorx.us.com/]sildenafil pills[/url] [url=http://propecianorx.us.com/]propecia online[/url]...

  • AaronPinge

    2017-04-06 13:42:18

    wh0cd57173 [url=http://sildenafilnorx.us.com/]order sildenafil[/url]...

  • EugeneTit

    2017-04-06 13:18:08

    wh0cd920249 [url=http://sildenafilnorx.us.com/]find out more[/url]...

  • MichaelThync

    2017-04-06 13:17:41

    wh0cd751348 [url=http://sildenafilnorx.us.com/]sildenafil best price[/url]...

  • CharlesHoups

    2017-04-06 13:14:08

    wh0cd48083 [url=http://caverta.party/]caverta[/url]...

  • MichaelThync

    2017-04-06 12:25:07

    wh0cd719383 [url=http://propecianorx.us.com/]Propecia NO RX[/url] [url=http://sildenafilnorx.us.com/]sildenafil pharmacy[/url] [url=http://prozacnorx.us.com/]prozac online[/url]...

  • EugeneTit

    2017-04-06 12:13:55

    wh0cd888284 [url=http://sildenafilnorx.us.com/]sildenafil pills[/url]...

  • Alfredpal

    2017-04-06 11:50:32

    wh0cd367742 [url=http://crestor.us.com/]buy crestor[/url]...