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

програми
Задача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-22 13:26:58

    wh0cd705904 [url=http://biaxin247.club/]cheap biaxin[/url]...

  • EugeneTit

    2017-03-22 13:19:31

    wh0cd587136 [url=http://buydiflucan2011.us/]buy diflucan[/url] [url=http://atarax500.top/]atarax[/url] [url=http://buywellbutrin2011.us/]more about the author[/url] [url=http://allopurinol7.top/]allopurinol[/url] [url=http://buyacyclovir2.top/]buy acyclovir cream[/url]...

  • TracyHorne

    2017-03-22 12:13:25

    wh0cd395330 [url=http://advair12.us/]advair[/url] [url=http://doxycyclineonline.review/]doxycycline mono[/url] [url=http://buydiflucan25.top/]diflucan[/url]...

  • EugeneTit

    2017-03-22 11:13:35

    wh0cd523201 [url=http://emsam.us/]emsam[/url]...

  • Bennydip

    2017-03-22 10:13:06

    wh0cd769852 [url=http://medrol6.top/]medrol[/url] [url=http://vardenafil10.us/]vardenafil[/url] [url=http://buycymbalta2010.top/]buy cymbalta cheap[/url]...

  • MichaelThync

    2017-03-22 10:12:34

    wh0cd43706 [url=http://arimidex1.top/]recommended reading[/url] [url=http://buyerythromycin500.top/]erythromycin[/url] [url=http://buyatarax0.top/]atarax for insomnia[/url]...

  • TracyHorne

    2017-03-22 09:42:39

    wh0cd331393 [url=http://buykamagra7.top/]kamagra[/url] [url=http://benicar2017.top/]benicar hct[/url] [url=http://buydiflucan-7.top/]diflucan[/url]...

  • Bennydip

    2017-03-22 09:34:36

    wh0cd737885 [url=http://fincar.science/]fincar[/url]...

  • Bennydip

    2017-03-22 08:59:13

    wh0cd705920 [url=http://buyprovera2010.us/]recommended reading[/url] [url=http://acyclovir365.top/]aciclovir 200 mg[/url] [url=http://antabuse75.us/]antabuse[/url] [url=http://celebrex2014.top/]celebrex[/url] [url=http://ciprofloxacin.club/]buy cheap cipro[/url]...

  • britneynw18

    2017-03-22 08:17:45

    Check my recent engagement http://datetips.sexblog.top/?entry.rebecca top single sites sexy women to date dating site web are hookup sites legit free chatting mobile...