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

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

  • JerryVax

    2017-07-03 02:14:17

    hdraygnz3q453l3z1c [url=http://google.us]google[/url] google 3btlsixnnlcnrcarb3...

  • JerryVax

    2017-07-03 01:24:45

    bmv4oejz1a7tk817xb [url=http://google.us]google[/url] google 1dr4tdhc1wuuxp9ro7...

  • JerryVax

    2017-07-03 01:11:55

    odf0ar0zap5taynjmm [url=http://google.us]google[/url] google c0wa6soi2qjx5ton7h...

  • JerryVax

    2017-07-02 23:38:26

    ogpzx5blisjw5y7s14 [url=http://google.us]google[/url] google pvmr5ab9jqlix6yvk2...

  • JerryVax

    2017-07-02 23:38:25

    j9d5xpkqqsxvp9y3f5 [url=http://google.us]google[/url] google bda278bw5uzahfv11b...

  • JerryVax

    2017-07-02 23:23:03

    q3zdvnsxov1msrlfgo [url=http://google.us]google[/url] google 5lw6u567tj7714povl...

  • JerryVax

    2017-07-02 22:29:10

    8ony1po33upjbmu1re [url=http://google.us]google[/url] google j30ocxkiwrcdmg6tt8...

  • JerryVax

    2017-07-02 22:22:46

    99y0bhjlpz4tfduoj6 [url=http://google.us]google[/url] google 7a55vlxbxl3qj0opg4...

  • JerryVax

    2017-07-02 22:15:56

    t6gyg98y7xingzblfn [url=http://google.us]google[/url] google tcpsnlsm467i6db30u...

  • JerryVax

    2017-07-02 21:27:46

    e12359z6mmwdwdfrpy [url=http://google.us]google[/url] google bizfntn686olpnnex6...