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

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

  • Makstor

    2017-07-03 13:16:18

    [url=https://volvopremium.ru/zamena-remnya-grm/] замену ремней ГРМ на легковых автомобилях Вольво[/url]...

  • EdwardRit

    2017-07-03 08:54:29

    [url=http://xn--h1aafgfebf7g.online/celebration.php]Повара на праздник[/url] - Репетитор для школьников, Изучения языков....

  • StanleyRiz

    2017-07-03 08:54:24

    благоприятный веб ресурс http://ltybcrf.com/...

  • JerryVax

    2017-07-03 07:52:18

    3v2qpffl2pwmit7hdu [url=http://google.us]google[/url] google renj7xd9dyahskrqv6...

  • JerryVax

    2017-07-03 07:49:41

    w6ijqn7xdpxvog6r89 [url=http://google.us]google[/url] google 82nto0fu5rxzeairgs...

  • JerryVax

    2017-07-03 06:09:46

    wpfxzd0lj7j0rtk8je [url=http://google.us]google[/url] google gthorw4p3ofo0ms6k1...

  • JerryVax

    2017-07-03 06:06:56

    icp1tasd0s6fmiekey [url=http://google.us]google[/url] google yw804zjkeehs1j0rj3...

  • JerryVax

    2017-07-03 05:49:29

    yzwlhhzpxmwzrat683 [url=http://google.us]google[/url] google 3tirgbpsjf3ow7a0dq...

  • JerryVax

    2017-07-03 04:39:35

    94tkv8z51kt1koskbo [url=http://google.us]google[/url] google pbw22xnc37yg98bxc7...

  • JerryVax

    2017-07-03 02:48:56

    9yq6phdigsxpovl88e [url=http://google.us]google[/url] google 2upuu8li62c93le0jr...