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

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

Коментарi

  • Alfredpal

    2017-03-20 20:10:49

    wh0cd664847 [url=http://cipro365.us.com/]cipro for sale[/url] [url=http://amoxicillin2017.us.com/]amoxicillin[/url]...

  • Bennydip

    2017-03-20 20:01:34

    wh0cd824689 [url=http://albuterol10.top/]inhaler albuterol[/url] [url=http://azithromycin-1.us/]azithromycin 250 mg[/url] [url=http://buytriamterene2013.top/]triamterene-hctz 75-50[/url]...

  • Kennethrig

    2017-03-20 19:47:25

    wh0cd121102 [url=http://abilify.us.org/]CHEAP ABILIFY[/url] [url=http://buymetformin.us.com/]recommended reading[/url]...

  • AaronPinge

    2017-03-20 19:39:35

    wh0cd952534 [url=http://metformin2017.us.com/]Metformin[/url]...

  • EugeneTit

    2017-03-20 19:38:38

    wh0cd2656 [url=http://zofrancheap.us.com/]zofran[/url]...

  • CharlesHoups

    2017-03-20 19:08:05

    wh0cd249305 [url=http://augmentinantibiotic.club/]augmentin[/url] [url=http://colchicine-7.top/]colchicine 0.6mg tablet[/url] [url=http://buyrimonabant17.top/]buy rimonabant[/url] [url=http://buyclonidine2012.us/]where to buy clonidine[/url] [url=http://buyviagrasoft-2.top/]generic viagra soft tabs[/url]...

  • TracyHorne

    2017-03-20 18:55:24

    wh0cd130520 [url=http://cytotec50.top/]cytotec pills for sale[/url] [url=http://buycolchicine9.us/]colchicine[/url] [url=http://clonidine12.top/]clonidine[/url]...

  • AaronPinge

    2017-03-20 18:04:34

    wh0cd888600 [url=http://toradol.us.com/]generic toradol[/url]...

  • Kennethrig

    2017-03-20 16:36:30

    wh0cd25203 [url=http://cialiscoupons.review/]cialis[/url] [url=http://lisinoprilhctz.review/]lisinopril[/url] [url=http://buycelexa2014.us/]for more info[/url]...

  • AaronPinge

    2017-03-20 15:58:16

    wh0cd824670 [url=http://fluoxetine.us.com/]fluoxetine[/url]...