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

програми
Задача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-04-01 03:35:30

    wh0cd947838 [url=http://eloconsteroidcream.us.com/]elocon[/url]...

  • MichaelThync

    2017-04-01 02:42:14

    wh0cd851944 [url=http://propecianorx.us.com/]PROPECIA TABLETS[/url]...

  • IgorNaf

    2017-04-01 02:35:52

    Металлоконструкции Строим металлоконструкции любой сложности. Цены ниже! [url=http://nvzmk.ru/]НВЗМК[/url]...

  • AaronPinge

    2017-04-01 02:19:06

    wh0cd189739 [url=http://sildenafilnorx.us.com/]Sildenafil[/url] [url=http://propecianorx.us.com/]cheapest propecia[/url]...

  • Alfredpal

    2017-04-01 02:12:12

    wh0cd915873 [url=http://buycialis100.us/]cialis[/url] [url=http://retina15.us/]retin a[/url] [url=http://clindamycin2011.top/]clindamycin 300mg[/url] [url=http://buyprednisone2011.us/]prednisone[/url]...

  • EugeneTit

    2017-04-01 01:53:20

    wh0cd381540 [url=http://propecianorx.us.com/]Propecia NO RX[/url] [url=http://prozacnorx.us.com/]prozac no rx[/url]...

  • AaronPinge

    2017-04-01 01:06:26

    wh0cd157774 [url=http://sildenafilnorx.us.com/]Sildenafil[/url] [url=http://cialisprofessional.us.com/]cialis for sale cheap[/url]...

  • MichaelThync

    2017-03-31 23:57:43

    wh0cd788014 [url=http://cialisprofessional.us.com/]buy cialis[/url] [url=http://viagrageneric.us.org/]Viagra Online[/url]...

  • Bennydip

    2017-03-31 23:44:52

    wh0cd778920 [url=http://chloroquine.science/]Chloroquine Malaria Prophylaxis[/url]...

  • CharlesHoups

    2017-03-31 22:38:57

    wh0cd84756 [url=http://buyproscar11.us/]buy proscar online[/url] [url=http://buyalbuterol5.top/]albuterol[/url] [url=http://buydiclofenac365.top/]diclofenac epolamine[/url] [url=http://buycymbalta25.top/]cymbalta[/url] [url=http://proscar7.top/]proscar[/url]...