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

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

  • JosephSig

    2017-07-22 06:14:16

    [url=http://j-health.ru/]японское средство от боли в суставах и мышцах[/url] - бад коричневый рис и черный уксус 20 дней, для похудения....

  • Kennethlek

    2017-07-21 22:00:37

    безукоризненный ресурс http://krasivoe-hd.net/izmena/...

  • Jefferysug

    2017-07-21 20:30:50

    pravogolosa pravogolosa.net...

  • JamesUnape

    2017-07-21 20:28:48

    pravogolosa pravogolosa.net...

  • Jefferysug

    2017-07-21 18:55:26

    pravogolosa pravogolosa.net...

  • Jamesendor

    2017-07-21 18:55:10

    pravogolosa pravogolosa.net...

  • WilliamMax

    2017-07-21 18:54:58

    pravogolosa pravogolosa.net...

  • DavidWaisp

    2017-07-21 14:00:12

    Последние новости здесь [url=http://www.planetoday.ru/]www.planetoday.ru[/url]...

  • Jennymob

    2017-07-21 13:08:22

    [URL=https:/sexosochi.love]проститутки сочи[/URL] [URL=https://sexosochi.club]проститутки сочи[/URL] на сайте [URL=https://sexosochi.com]проститутки сочи[/URL]заходи выбирай...

  • Charesbeisa

    2017-07-21 12:02:36

    порно porno...