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

програми
Задача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-05 07:45:49

    wh0cd628175 [url=http://motiliumonline.us.com/]motilium over the counter[/url]...

  • TracyHorne

    2017-03-05 06:33:29

    wh0cd564243 [url=http://shallaki.science/]SHALLAKI ONLINE[/url]...

  • AaronPinge

    2017-03-05 06:15:57

    wh0cd468350 [url=http://caverta.party/]Caverta[/url]...

  • MichaelThync

    2017-03-05 05:47:06

    wh0cd93841 [url=http://buy-toradol.com/]Toradol 30 mg[/url]...

  • AaronPinge

    2017-03-05 04:17:45

    wh0cd404415 [url=http://acomplia.us.com/]acomplia online[/url] [url=http://bentyl365.us.com/]bentyl[/url] [url=http://buyyasmin.us.com/]Yasmin USA[/url]...

  • MichaelThync

    2017-03-05 01:12:02

    wh0cd756047 [url=http://celexaonline.in.net/]view homepage[/url] [url=http://baclofentablets.club/]baclofen 10mg[/url] [url=http://buypropranolol5.top/]propranolol[/url]...

  • TracyHorne

    2017-03-04 23:49:03

    wh0cd372446 [url=http://levitraprofessional.us.com/]Levitra Professional Pills[/url]...

  • EugeneTit

    2017-03-04 23:22:57

    wh0cd500308 [url=http://buyamoxicillin.tech/]get the facts[/url] [url=http://ventolin8.us/]ventolin[/url] [url=http://metforminhydrochloride.review/]metformin[/url] [url=http://prozac500.us/]cheap prozac[/url] [url=http://atenololonline.review/]atenolol[/url] [url=http://crestor.fashion/]crestor[/url]...

  • DonaldKnila

    2017-03-04 21:59:21

    The lozenge of the drug quickly restores the reproductive system, improves erection, strengthens blood vessels of the penis, normalises psycho emotional state, helps to develop physical stamina during sex, significantly enhances sexual arousal, increase the amount of hormones, and also increases the volume of blood in the genitals . This cure was developed in 1991, and over the next five years, to create a unique composition of this drug. At present day, the effect of the cure validated worldwide...

  • MichaelThync

    2017-03-04 21:49:20

    wh0cd660150 [url=http://trandate.club/]trandate[/url] [url=http://serevent.club/]serevent diskus[/url] [url=http://tricor.club/]tricor[/url] [url=http://vasodilan.club/]vasodilan without prescription[/url]...