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

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

Коментарi

  • Ronaldabupt

    2018-01-10 10:17:46

    вложение интернет Вам предоставляется возможность пользования кредитной линией. Без процентов за пользование и без срока пользования кредитом (займом). Абонентская плата составляет всего 3 доллара в месяц и не зависит от кредитного лимита. [url=https://depo120.com/card] частный кредит [/url]...

  • Rogerthamb

    2018-01-10 10:12:35

    где зарабатывать деньги Заказав карту "DEPO120" Вы не только получаете кэшбэк за свои покупки и покупки друзей в любимых магазинах, и в тех, в которые ходите за покупками каждый день. [url=https://depo120.com] кэшбэк 2018 [/url]...

  • car insurance quotes

    2018-01-10 09:57:38

    cheap car insurance compare auto insurance quotes compare car insurance rates [url=https://carinsurance.us.org]car insurance[/url]...

  • Andrewtaums

    2018-01-10 09:38:33

    [url=https://alicante-house.ru]купить недвижимость в Аликанте[/url]...

  • Richardtip

    2018-01-10 09:38:27

    [url=https://alicante-house.ru]новостройки в аликанте[/url]...

  • Essay-writer.Org

    2018-01-10 08:46:42

    help to do assignment argumentative essay argumentative essay [url=https://argumentativeessay.us.com]argumentative essay[/url]...

  • Personal Loans

    2018-01-10 05:38:00

    easy payday loans online payday loan payday loans online [url=https://loan.us.org]loan[/url]...

  • Custom Essay Writing

    2018-01-10 05:31:53

    essay writing service homework help library essay writing service [url=https://essaywritingservice.us.org]writing my essay for me[/url]...

  • cheap insurance auto

    2018-01-10 05:10:14

    compare car insurance car insurance compare car insurance quotes [url=https://carinsurance.us.org]general auto insurance[/url]...

  • Speedy Cash

    2018-01-10 00:32:41

    cash advance loan loan cash payday advance online [url=https://cashadvance.us.org]online payday advance[/url]...