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

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

Коментарi

  • Alfredpal

    2017-03-22 20:44:47

    wh0cd929673 [url=http://costofviagra2017.science/]viagra[/url] [url=http://motilium2017.cricket/]motilium online[/url] [url=http://sildenafilcitrate2017.science/]sildenafil-citrate[/url]...

  • AaronPinge

    2017-03-22 20:31:00

    wh0cd395341 [url=http://lasix365.us.com/]cheap lasix[/url]...

  • Alfredpal

    2017-03-22 20:08:12

    wh0cd897708 [url=http://bentyl2017.science/]bentyl for ibs[/url] [url=http://clomid2017.science/]clomid[/url] [url=http://valtrex2017.bid/]valtrex[/url] [url=http://abilify2017.bid/]abilify[/url]...

  • TracyHorne

    2017-03-22 18:23:40

    wh0cd619089 [url=http://avana-2015.top/]avana[/url] [url=http://buyvardenafil911.top/]buy vardenafil[/url] [url=http://buyavodart4.us/]avodart .5 mg[/url] [url=http://cafergot100.top/]cafergot[/url]...

  • MichaelThync

    2017-03-22 18:16:23

    wh0cd267467 [url=http://lisinopril365.us.com/]lisinopril online[/url]...

  • EugeneTit

    2017-03-22 16:59:49

    wh0cd715010 [url=http://acyclovir75.us/]acyclovir[/url] [url=http://buyzoloft365.top/]zoloft price[/url] [url=http://fluoxetinehcl.review/]fluoxetine 20mg capsules[/url] [url=http://buyinderal2.us/]buy inderal[/url]...

  • Bennydip

    2017-03-22 16:56:20

    wh0cd993618 [url=http://erythromycin2010.us/]erythromycin[/url] [url=http://buyindocin365.top/]indocin generic[/url] [url=http://lisinopril2017.top/]buy lisinopril online[/url] [url=http://buycialis8.top/]cialis[/url]...

  • Bennydip

    2017-03-22 16:16:31

    wh0cd961653 [url=http://neurotin.science/]neurotin[/url]...

  • EugeneTit

    2017-03-22 16:10:54

    wh0cd683043 [url=http://quibront.top/]generic quibron-t[/url]...

  • MichaelThync

    2017-03-22 15:43:28

    wh0cd235502 [url=http://lisinoprilhydrochlorothiazide.us.com/]order hydrochlorothiazide[/url] [url=http://buyelimite.biz/buy-elimite-online.html]buy elimite online[/url] [url=http://buytenormin.us.com/]Tenormin AmEx[/url]...