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

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

  • TracyHorne

    2017-03-30 03:25:03

    wh0cd212626 [url=http://ilosone.top/]ilosone[/url]...

  • Alfredpal

    2017-03-30 02:56:52

    wh0cd331406 [url=http://vpxl2017.bid/]vpxl[/url] [url=http://advairdiskus2017.cricket/]advair diskus[/url] [url=http://indocin2017.cricket/]indocin 50 mg tablets[/url]...

  • CharlesHoups

    2017-03-30 02:39:51

    wh0cd833776 [url=http://buyalli.us/]Alli Pills[/url]...

  • AaronPinge

    2017-03-30 02:22:55

    wh0cd842863 [url=http://doxycycline365.us.com/]Vibramycin 100 mg[/url]...

  • TracyHorne

    2017-03-30 02:22:54

    wh0cd180661 [url=http://buyatarax2015.us/]generic for atarax[/url] [url=http://buymotilium1.top/]motilium[/url] [url=http://buyindocin365.top/]indocin[/url] [url=http://ventolin17.top/]ventolin[/url]...

  • StephenSoums

    2017-03-30 01:30:24

    Новая информация о строительстве [url=http://distroy.ru/]distroy.ru/[/url]...

  • Alfredpal

    2017-03-30 00:51:31

    wh0cd267474 [url=http://metformin2017.us.com/]Buy Metformin[/url]...

  • BigBonusClend

    2017-03-30 00:32:56

    Get NoW your $1500 -> http://takemoney.pro...

  • Bennydip

    2017-03-30 00:32:20

    wh0cd587123 [url=http://kamagra2017.science/]kamagra oral jelly usa[/url] [url=http://hydrochlorothiazide2017.bid/]hydrochlorothiazide 12.5 mg capsule[/url] [url=http://motilium2017.bid/]motilium[/url]...

  • EugeneTit

    2017-03-30 00:08:55

    wh0cd148700 [url=http://baclofen-2016.top/]discover more[/url] [url=http://buycytotec2012.top/]buy cytotec[/url] [url=http://buyventolin8.us/]buy ventolin inhaler online[/url] [url=http://buycelebrex9.top/]celebrex[/url] [url=http://buyelocon2011.us/]buy elocon[/url]...