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

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

Коментарi

  • HenryNob

    2017-12-13 22:45:23

    ул.нижегородская 32 стр 15 [url=http://safzem.ru/]нижегородская д 32 стр 15[/url]...

  • Stevienip

    2017-12-13 22:45:16

    ул.нижегородская 32 стр 15 [url=http://safzem.ru/]ул нижегородская д.32 стр.15 москва[/url]...

  • KennyDep

    2017-12-13 22:02:35

    сафоновский завод энергетического машиностроения [url=http://safzem.ru/]дизель генератор дгр[/url]...

  • Charleshax

    2017-12-13 22:02:29

    сафоновский электромашиностроительный завод официальный сайт [url=http://safzem.ru/]сафоново завод[/url]...

  • Joecat

    2017-12-13 21:03:28

    buy essay online online essay buy an essay online [url=https://buyessay.us.com]buy essay online[/url]...

  • Jamescat

    2017-12-13 20:55:39

    Our site custom essay WriteMyEssay.us.com [url=https://writemyessay.us.com]WRITEMYESSAY.US.COM[/url]...

  • Joecat

    2017-12-13 17:05:09

    write my essay online buy essay online online homework help [url=https://essayonline.us.com]online essay help[/url]...

  • Jamescat

    2017-12-13 15:26:40

    Continue online essay online paper writer [url=https://essayonline.us.com]explained here[/url]...

  • Jamescat

    2017-12-13 10:53:38

    buy essay buy an essay for college order essay online cheap quick [url=https://buyessay.us.com]buy essay[/url]...

  • Raymondskaky

    2017-12-13 10:44:54

    нагрузочные модули что это [url=https://general-energo.ru/]передвижная дгу[/url]...