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

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

  • Alfredpal

    2017-03-21 22:50:41

    wh0cd290351 [url=http://viagracanada.us.com/]cheap viagra[/url] [url=http://buytoradol.us.com/]toradol back pain[/url] [url=http://noroxin.us.com/]Noroxin[/url]...

  • Bennydip

    2017-03-21 20:23:50

    wh0cd450183 [url=http://metformin2017.us.com/]metformin online[/url]...

  • TracyHorne

    2017-03-21 20:02:13

    wh0cd929684 [url=http://cialis10mg.club/]citation[/url] [url=http://celebrex200mg.club/]celebrex 200 mg[/url] [url=http://buydiflucan250.us/]buy diflucan[/url] [url=http://albuterol500.top/]albuterol[/url]...

  • CharlesHoups

    2017-03-21 19:49:07

    wh0cd856657 [url=http://genericcialis.us.org/]generic cialis[/url] [url=http://triamterenehctz.us.com/]triamterene[/url]...

  • Kennethrig

    2017-03-21 19:01:37

    wh0cd664512 [url=http://bystolic.us/]generic bystolic alternative[/url]...

  • Bennydip

    2017-03-21 18:18:38

    wh0cd386250 [url=http://buytetracycline2017.top/]tetracycline[/url] [url=http://avodart11.top/]avodart online[/url] [url=http://buypropranolol75.us/]propranolol[/url]...

  • Kennethrig

    2017-03-21 16:33:17

    wh0cd600579 [url=http://motilium15.top/]additional info[/url] [url=http://buyadvair12.us/]read full report[/url] [url=http://avodart100.us/]avodart[/url]...

  • CharlesHoups

    2017-03-21 16:24:44

    wh0cd760758 [url=http://buyprednisolone11.top/]prednisolone 5mg[/url] [url=http://buylisinopril9.top/]view website[/url] [url=http://elimite9.top/]elimite[/url]...

  • Bennydip

    2017-03-21 15:51:37

    wh0cd322320 [url=http://apcalis.science/]Apcalis[/url]...

  • Kennethrig

    2017-03-21 14:45:40

    wh0cd568614 [url=http://flagyl2017.us.com/]flagyl without prescription[/url] [url=http://buy-elocon.com/]Buy Elocon[/url]...