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

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

  • AaronPinge

    2017-03-04 20:15:19

    wh0cd148688 [url=http://albendazoleonline.us.com/]albenza costs[/url]...

  • EugeneTit

    2017-03-04 16:06:37

    wh0cd212618 [url=http://proscar.christmas/]proscar[/url] [url=http://tadaciponline.in.net/]tadacip[/url] [url=http://bentylprice.in.net/]generic for bentyl[/url] [url=http://avodart0.us/]generic for avodart 0.5 mg[/url] [url=http://azithromycin250mg.club/]azithromycin 250mg[/url] [url=http://buynolvadex10.us/]nolvadex[/url]...

  • TracyHorne

    2017-03-04 15:30:17

    wh0cd116724 [url=http://levothroid.club/]levothroid[/url] [url=http://trileptal.club/]trileptal for mood[/url] [url=http://nimotop.club/]nimotop[/url] [url=http://trandate.club/]trandate[/url]...

  • MichaelThync

    2017-03-04 14:49:33

    wh0cd436382 [url=http://anafranilcost.us.com/]explained here[/url]...

  • TracyHorne

    2017-03-04 12:45:52

    wh0cd20826 [url=http://allegra247.club/]buy allegra[/url] [url=http://cialis2016.us.com/]Cialis[/url]...

  • EugeneTit

    2017-03-04 11:34:51

    wh0cd116721 [url=http://allopurinol.us.com/]buy allopurinol[/url]...

  • MichaelThync

    2017-03-04 10:13:42

    wh0cd276551 [url=http://buytadacip16.top/]tadacip cipla[/url] [url=http://amoxil.christmas/]generic amoxil[/url] [url=http://eurax5.us/]eurax[/url] [url=http://stromectol2017.top/]stromectol 3 mg[/url] [url=http://lisinopril25.top/]lisinopril[/url] [url=http://buyantabuse2011.us/]buy antabuse online no prescription[/url]...

  • MichaelThync

    2017-03-04 08:59:42

    wh0cd244586 [url=http://vytorin.club/]vytorin[/url] [url=http://abana.club/]abana[/url]...

  • MichaelThync

    2017-03-04 07:49:45

    wh0cd212619 [url=http://crestor.us.com/]crestor online[/url] [url=http://levitraonline.us.com/]levitra for sale[/url] [url=http://buycialisonline.us.com/]where to buy cialis[/url]...

  • MichaelThync

    2017-03-04 07:07:47

    wh0cd180654 [url=http://augmentin500mg.club/]recommended site[/url] [url=http://elocon.us/]elocon cream price[/url] [url=http://metformin-er.in.net/]metformin er 500 mg[/url] [url=http://citalopram.christmas/]citalopram[/url] [url=http://buytadacip250.us/]buy tadacip[/url]...