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

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

  • Kennethrig

    2017-03-20 14:22:38

    wh0cd975098 [url=http://tamoxifen2013.us/]tamoxifen pct[/url] [url=http://strattera-3.top/]atomoxetine cost[/url] [url=http://acyclovir250.top/]zovirax buy online[/url] [url=http://buymetformin1.top/]buy metformin[/url]...

  • Bennydip

    2017-03-20 14:01:22

    wh0cd600928 [url=http://meloxicam.club/]meloxicam[/url]...

  • Bennydip

    2017-03-20 13:21:20

    wh0cd568963 [url=http://eurax9.top/]eurax[/url] [url=http://buysynthroid500.top/]synthroid 150 mcg[/url] [url=http://cheapviagraonline.club/]viagra[/url] [url=http://stromectol5.top/]buy stromectol online[/url] [url=http://cialis8.top/]canadian cialis[/url]...

  • Alfredpal

    2017-03-20 13:06:03

    wh0cd505017 [url=http://toprol.top/]toprol without prescription[/url]...

  • Kennethrig

    2017-03-20 12:53:32

    wh0cd943133 [url=http://buy-stromectol.com/]Buy Stromectol[/url]...

  • EugeneTit

    2017-03-20 12:29:56

    wh0cd760764 [url=http://finpecia.top/]finpecia[/url]...

  • Bennydip

    2017-03-20 12:20:33

    wh0cd536998 [url=http://advair365.us.com/]advair diskus without a prescription[/url]...

  • AaronPinge

    2017-03-20 11:45:59

    wh0cd696807 [url=http://shuddhaguggulu.top/]buy shuddha guggulu[/url]...

  • MichaelThync

    2017-03-20 11:14:28

    wh0cd696832 [url=http://toprol.top/]Generic Toprol[/url]...

  • Bennydip

    2017-03-20 11:13:20

    wh0cd505033 [url=http://trazodone2017.us.com/]trazodone hydrochloride[/url]...