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

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

  • TracyHorne

    2017-03-10 22:43:16

    wh0cd408797 [url=http://zebeta.club/]bisoprolol zebeta[/url] [url=http://himplasia.club/]buy himplasia[/url] [url=http://mirapex.club/]mirapex pramipexole[/url] [url=http://zaditor.club/]zaditor[/url] [url=http://zyprexa.club/]zyprexa[/url]...

  • TracyHorne

    2017-03-10 21:22:22

    wh0cd376832 [url=http://neurontin2017.us.com/]generic neurontin[/url]...

  • AaronPinge

    2017-03-10 19:43:26

    wh0cd344859 [url=http://reminyl.club/]reminyl[/url] [url=http://zyrtec.club/]zyrtec[/url]...

  • AaronPinge

    2017-03-10 19:12:14

    wh0cd312892 [url=http://cialiscoupon.us.com/]generic cialis[/url] [url=http://reviacost.us.com/]REVIA COST[/url] [url=http://wellbutrinxl.us.com/]wellbutrin sale[/url]...

  • AaronPinge

    2017-03-10 17:38:16

    wh0cd216995 [url=http://apcalis.science/]apcalis[/url]...

  • AaronPinge

    2017-03-10 17:05:12

    wh0cd185030 [url=http://elocon-cream.in.net/]elocon[/url] [url=http://nolvadex.fashion/]tamoxifen citrate nolvadex for sale[/url] [url=http://elimite100.us/]elimite[/url] [url=http://furosemide2012.us/]furosemide 40[/url] [url=http://tadalafil50.top/]tadalafil 5mg[/url]...

  • AaronPinge

    2017-03-10 15:51:23

    wh0cd121100 [url=http://myambutol.club/]myambutol[/url] [url=http://nootropil.club/]nootropil[/url] [url=http://vasodilan.club/]vasodilan[/url] [url=http://himcolin.club/]buy himcolin[/url] [url=http://levothroid.club/]levothroid online[/url] [url=http://trimox.club/]trimox[/url]...

  • AaronPinge

    2017-03-10 14:29:14

    wh0cd57166 [url=http://buy-vermox.com/]vermox online[/url]...

  • EugeneTit

    2017-03-10 13:36:42

    wh0cd952206 [url=http://oxytrol.club/]oxytrol[/url] [url=http://mirapex.club/]mirapex er[/url] [url=http://zyban.club/]buy zyban[/url]...

  • EugeneTit

    2017-03-10 11:47:13

    wh0cd888274 [url=http://tulasi.club/]buy tulasi[/url] [url=http://naprosyn.club/]naprosyn[/url] [url=http://imdur.club/]imdur[/url] [url=http://namenda.club/]namenda[/url] [url=http://serevent.club/]serevent[/url]...