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

програми
Задача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-22 08:06:01

    wh0cd514110 [url=http://neurontin2017.us/]neurontin[/url] [url=http://buybenicar-365.us/]benicar[/url] [url=http://atarax500.top/]atarax[/url] [url=http://cytotec2014.top/]cytotec[/url] [url=http://buyprednisone-2016.top/]prednisone[/url]...

  • EugeneTit

    2017-03-22 07:39:26

    wh0cd427304 [url=http://bupropion.us.com/]Bupropion[/url]...

  • EugeneTit

    2017-03-22 06:52:51

    wh0cd395339 [url=http://wellbutrinsr.us.com/]WELLBUTRIN SR[/url] [url=http://toradol365.us.com/]buy toradol[/url] [url=http://buy-viagra-soft.com/]order viagra soft[/url]...

  • CharlesHoups

    2017-03-22 06:43:04

    wh0cd98560 [url=http://cytotec365.us.com/]recommended reading[/url]...

  • MichaelThync

    2017-03-22 06:24:04

    wh0cd929672 [url=http://buycafergot.us.com/]buy cafergot[/url] [url=http://stromectol365.us.com/]buy stromectol[/url] [url=http://albuterol365.us.com/]Cheap Albuterol[/url]...

  • AaronPinge

    2017-03-22 05:59:05

    wh0cd75679 [url=http://buysynthroid-3.top/]buy synthroid online[/url] [url=http://buyretina15.top/]buy retin a[/url] [url=http://levaquin1.top/]levaquin[/url]...

  • TracyHorne

    2017-03-22 05:46:39

    wh0cd235496 [url=http://tretinoin.us.com/]buy tretinoin[/url]...

  • CharlesHoups

    2017-03-22 05:30:39

    wh0cd66591 [url=http://buytadacip.top/]tadacip[/url]...

  • Bennydip

    2017-03-22 04:34:27

    wh0cd641986 [url=http://azithromycinprice.review/]azithromycin[/url] [url=http://generictadalafil.review/]tadalafil over the counter[/url] [url=http://buykamagra-2016.top/]kamagra[/url]...

  • AaronPinge

    2017-03-22 03:35:51

    wh0cd11741 [url=http://ventolininhaler.review/]ventolin tablets[/url] [url=http://buytamoxifen2011.us/]buy tamoxifen[/url] [url=http://fluoxetine2015.top/]fluoxetine[/url] [url=http://indocin25.us/]indocin 50 mg tablets[/url] [url=http://abilify-6.top/]abilify cost[/url]...