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

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

Коментарi

  • Term Paper Writers

    2018-01-19 14:22:48

    papers writing service write my custom paper do my paper [url=https://writemypaper.us.com]write my paper[/url]...

  • A Payday Loan

    2018-01-19 13:11:05

    personal loans no credit check loans no credit check simple loan agreement template [url=https://loansnocreditcheck.us.com]money loans no credit check[/url]...

  • DuncanIntok

    2018-01-19 12:38:40

    Не удивительно, что женихи с периферии тоже желают выглядеть модно и красиво, как и столичные. Поскольку в центральную Россию поступают товары из-за рубежа по прямым анналам, то поставки в центре существенно определяют моду и направление стилистики ассортимента для всей страны, подробнее читайте на сайте [url=http://dom-lady.ru]dom-lady.ru[/url]...

  • JamesGrarp

    2018-01-19 12:10:52

    Шампанское ассоциируется у людей с праздником. Среди разных его сортов особое место занимает брют. Этот напиток родом из Шампани (провинция во Франции) имеет легкий вкус и свежий аромат. Читайте об этом подробнее на сайте [url=http://ladystory.ru]ladystory.ru[/url]...

  • Jamescat

    2018-01-19 10:35:39

    research essay doctoral dissertations online research papers [url=https://researchessay.cricket]research essay[/url] demystifying dissertation writing research paper research paper [url=https://collegepaper.cricket]college paper[/url] writing a qualitative research paper college essay help college essay [url=https://goodcollegeessays.science]law assignment help[/url]...

  • Writing My Essay

    2018-01-19 09:03:19

    essay writing services essay writing services editing service [url=https://essaywritingservices.us.org]high quality article writing service[/url]...

  • Buy College Essay

    2018-01-19 08:34:46

    write essays for me write essays essays [url=https://essays.us.com]quotations on essay my last day at college[/url]...

  • Payday Loan

    2018-01-19 07:22:47

    express cash advance cash advance loan online payday advance [url=https://cashadvanceloan.us.com]cash loans online[/url]...

  • Loan

    2018-01-19 07:17:13

    loans same day payday advance payday advance [url=https://paydayadvance.us.com]payday advance[/url]...

  • Paydayloan

    2018-01-19 04:58:13

    online loan application payday loan denver specialized loan services [url=https://onlineloan.us.com]cash advance america scam[/url]...