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

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

  • Buy Custom Essay

    2018-02-10 05:55:53

    paper writing writing my paper write a paper for me [url=https://writemypaperforme.us.com]help in writing your book[/url]...

  • Jeffreythurf

    2018-02-09 22:15:22

    aj lee porn [url=http://hunter-killer.org/thread/seo-%D1%81%D1%82%D1%83%D0%B4%D0%B8%D1%8F-wezon-%D0%BC%D0%BE%D1%88%D0%B5%D0%BD%D0%BD%D0%B8%D0%BA%D0%B8-%D0%B8%D0%B7-%D1%83%D0%BA%D1%80%D0%B0%D0%B8%D0%BD%D1%8B/]adult video[/url] [url=http://hunter-killer.org/thread/seo-%D1%81%D1%82%D1%83%D0%B4%D0%B8%D1%8F-wezon-%D0%BC%D0%BE%D1%88%D0%B5%D0%BD%D0%BD%D0%B8%D0%BA%D0%B8-%D0%B8%D0%B7-%D1%83%D0%BA%D1%80%D0%B0%D0%B8%D0%BD%D1%8B/]buy viagra[/url] [url=http://hunter-killer.org/thread/seo-%D1%81%D1%82%D1%83%D0%B4%D0%B8%D1%8F-wezon-%D0%BC%D0%BE%D1%88%D0%B5%D0%BD%D0%BD%D0%B8%D0%BA%D0%B8-%D0%B8%D0%B7-%D1%83%D0%BA%D1%80%D0%B0%D0%B8%D0%BD%D1%8B/]12step...

  • Homework Good Or Bad

    2018-02-09 18:59:56

    essay writing services best essay writing service essay writing services [url=https://essaywritingservices.us.org]college essay writing service[/url]...

  • Is Homework Helpful

    2018-02-09 18:38:17

    write my paper write my papers writing assistance [url=https://writemypaper.us.com]wedding speech writing service[/url]...

  • Custom Essays

    2018-02-09 12:05:55

    help me write my paper write my paper write my paper for me [url=https://writemypaper.us.com]writing a proposal[/url]...

  • Matthewnuh

    2018-02-09 09:43:52

    viagra [url=https://sanatorium.com]12step porn[/url]...

  • Online Essay Writer

    2018-02-09 09:35:30

    writing a research paper notes on essay writing essay writing about internet [url=https://researchessay.us.com]buy research papers[/url]...

  • Best Essay Writer

    2018-02-09 06:27:40

    writing a research paper writing a research paper research essay [url=https://researchessay.us.com]essays on teachers[/url]...

  • WilliamMum

    2018-02-09 04:39:07

    [url=http://portal-eu.ru/snyat-apartamenty/apartamenty-v-chekhii/realty689/ ]Апартаменты Карловы Вары Замецки Врх[/url] - Недвижимость в Карловых Варах, Недвижимость в Карловых Варах цены....

  • Buying Essays

    2018-02-09 00:39:26

    help me write my paper argumentative conclusion do my paper [url=https://writemypaper.us.com]writing my paper[/url]...