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

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

  • MichaelThync

    2017-03-31 16:58:06

    wh0cd628185 [url=http://cialisprofessional.us.com/]cialis[/url]...

  • CharlesHoups

    2017-03-31 16:37:29

    wh0cd938754 [url=http://revia250.top/]generic revia[/url] [url=http://ciprofloxacin.review/]cipro[/url] [url=http://elimite2017.top/]elimite[/url] [url=http://metformin25.top/]metformin[/url]...

  • TracyHorne

    2017-03-31 16:33:55

    wh0cd285643 [url=http://prozacnorx.us.com/]info[/url] [url=http://cialisprofessional.us.com/]Buy Cialis[/url]...

  • TracyHorne

    2017-03-31 15:00:38

    wh0cd221710 [url=http://cialisprofessional.us.com/]Cialis Lowest Cost[/url]...

  • TracyHorne

    2017-03-31 14:18:06

    wh0cd189745 [url=http://viagrageneric.us.org/]Viagra Generic[/url]...

  • Bennydip

    2017-03-31 14:05:14

    wh0cd587123 [url=http://clindamycin2011.top/]clindamycin[/url] [url=http://buyfurosemide100.us/]furosemide[/url] [url=http://buytriamterene10.us/]triamterene hctz 37.5[/url] [url=http://buybenicar-365.us/]benicar online[/url] [url=http://avodart7.us/]avodart[/url]...

  • CharlesHoups

    2017-03-31 11:23:31

    wh0cd810894 [url=http://advairdiskus2017.cricket/]advair 500[/url] [url=http://sildenafilcitrate2017.bid/]sildenafil[/url] [url=http://cialiscost17.science/]cialis cost[/url]...

  • TracyHorne

    2017-03-31 11:23:07

    wh0cd93843 [url=http://buycitalopram12.us/]citalopram[/url] [url=http://buyprednisone2011.us/]prednisone[/url] [url=http://buyrobaxin10.us/]visit your url[/url] [url=http://celebrex8.top/]generic celebrex[/url] [url=http://buyrevia1.us/]revia cost[/url]...

  • MichaelThync

    2017-03-31 10:54:20

    wh0cd404426 [url=http://neurontin2017.us/]neurontin[/url] [url=http://cipro365.us/]ciprofloxacin mail online[/url] [url=http://propranolol-6.top/]propranolol 40 mg[/url] [url=http://buyeffexor15.top/]effexor[/url] [url=http://tenormin250.top/]tenormin[/url]...

  • Bennydip

    2017-03-31 10:30:27

    wh0cd651053 [url=http://buyretina500.top/]retin-a[/url] [url=http://buymetformin50.top/]metformin[/url] [url=http://buysildenafil7.us/]sildenafil citrate over the counter[/url]...