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

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

Коментарi

  • Alfredpal

    2017-03-23 02:22:36

    wh0cd139607 [url=http://colchicine2017.cricket/]colchicine[/url] [url=http://lisinopril2017.cricket/]lisinopril[/url] [url=http://clonidine2017.science/]clonidine[/url] [url=http://genericviagra2017.science/]viagra[/url]...

  • Bennydip

    2017-03-23 01:53:59

    wh0cd395326 [url=http://buycialis4.top/]cheap cialis pills online[/url] [url=http://tenorminonline.review/]generic for tenormin[/url] [url=http://tadacip20.top/]tadacip 20 mg[/url]...

  • EugeneTit

    2017-03-23 01:50:47

    wh0cd938772 [url=http://hydrochlorothiazide2017.science/]hctz no prescription[/url] [url=http://advairdiskus17.science/]advair[/url] [url=http://viagrasoft17.science/]cheap viagra soft tabs[/url]...

  • Bennydip

    2017-03-23 01:10:12

    wh0cd363361 [url=http://lisinopril365.us.com/]cheap lisinopril[/url]...

  • EugeneTit

    2017-03-23 00:30:39

    wh0cd906804 [url=http://buyphenergan6.top/]phenergan[/url] [url=http://avana0.top/]super avana[/url] [url=http://buyazithromycin-1.us/]where can i buy azithromycin online[/url] [url=http://motilium911.us/]motilium[/url] [url=http://buystrattera6.us/]purchase stattera[/url]...

  • Alfredpal

    2017-03-23 00:28:01

    wh0cd75673 [url=http://cephalexin2.top/]cephalexin[/url] [url=http://buyhydrochlorothiazide17.top/]hydrochlorothiazide 25[/url] [url=http://atenolol75.us/]atenolol[/url] [url=http://elocon2012.top/]elocon[/url] [url=http://buypropranolol10.us/]buy propranolol[/url]...

  • MichaelThync

    2017-03-23 00:18:19

    wh0cd395327 [url=http://betnovate.us.com/]cheapest betnovate[/url] [url=http://tadalafilonline.us.com/]Tadalafil Price[/url]...

  • Bennydip

    2017-03-22 23:11:42

    wh0cd299429 [url=http://cialiscost2017.science/]cheap cialis 5 mg[/url] [url=http://revia2017.cricket/]revia[/url] [url=http://paxil17.science/]paxil[/url] [url=http://cialiscost2017.cricket/]cialis[/url] [url=http://sildenafilcitrate2017.science/]sildenafil[/url]...

  • Alfredpal

    2017-03-22 21:28:50

    wh0cd961638 [url=http://celexa2017.science/]order celexa online[/url] [url=http://cephalexin2017.bid/]cephalexin[/url] [url=http://effexor2017.bid/]effexor[/url] [url=http://prozac2017.science/]cheap prozac[/url] [url=http://allopurinol17.science/]view[/url]...

  • TracyHorne

    2017-03-22 20:53:14

    wh0cd714988 [url=http://wellbutrinxl.us.com/]wellbutrin no prescription[/url]...