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

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

  • Pay Day Loans

    2017-12-31 09:28:01

    payday loans loans small loans no credit check [url=https://loan.us.org]best cash loan[/url]...

  • FrankieSog

    2017-12-31 07:19:58

    конкурс караоке песни национальный песенный конкурс[url=https://russianpopoyka.show] международный вокальный конкурс [/url]...

  • Williamjed

    2017-12-31 07:19:48

    конкурс москва национальный песенный конкурс[url=https://russianpopoyka.show] национальный конкурс [/url]...

  • Janecat

    2017-12-31 04:15:07

    college essays college essay prompts solve my math [url=https://collegeessays.us.com]college essays[/url]...

  • Homework Now.Com

    2017-12-31 03:07:47

    students doing homework college essay prompts buy college essays [url=https://collegeessays.us.com]homework help sites for college students[/url]...

  • Buying Essays Online

    2017-12-30 23:27:06

    research paper do my course research papers [url=https://researchpaper.us.com]research paper[/url]...

  • Janecat

    2017-12-30 22:55:28

    essay writing service paper writing service paper writing service [url=https://essaywritingservice.us.org]microeconomics homework help[/url]...

  • Jasondredy

    2017-12-30 22:36:08

    sex video with young children [url=https://offshoreleaks.icij.org/stories/kojo-annan]porn video with animals[/url]...

  • Josephoraro

    2017-12-30 22:36:07

    музыка песни онлайн национальный песенный конкурс[url=https://russianpopoyka.show] вокальный эстрадный конкурс [/url]...

  • ThomasDax

    2017-12-30 22:36:06

    музыка песни онлайн национальный песенный конкурс[url=https://russianpopoyka.show] эстрадный конкурс [/url]...