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

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

Коментарi

  • Getting A Loan

    2018-01-08 05:28:11

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

  • Payday Express

    2018-01-08 04:56:57

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

  • Online Loan

    2018-01-08 00:04:17

    payday loans online direct lenders loan payday loans [url=https://loan.us.org]speedycash[/url]...

  • Money Loan

    2018-01-07 23:49:35

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

  • CharlesHaith

    2018-01-07 11:01:39

    международный вокальный конкурс Национальный песенный конкурс "russianpopoyka" - уникальный вокально - песенный фестиваль в котором может принять участие абсолютно каждый. Подробности в группе https://vk.com/russianpopoyka [url=https://russianpopoyka.show] песня музыка [/url]...

  • Essay Buy

    2018-01-07 01:03:58

    buy essays college essay buy essays [url=https://collegeessays.us.com]college essays[/url]...

  • Thomasglota

    2018-01-06 23:58:32

    конкурс спой песню Национальный песенный конкурс "russianpopoyka" - уникальный вокально - песенный фестиваль в котором может принять участие абсолютно каждый. Подробности в группе https://vk.com/russianpopoyka [url=https://russianpopoyka.show] финал конкурс [/url]...

  • RichardGeolo

    2018-01-06 23:56:00

    вокальный эстрадный конкурс Национальный песенный конкурс "russianpopoyka" - уникальный вокально - песенный фестиваль в котором может принять участие абсолютно каждый. Подробности в группе https://vk.com/russianpopoyka [url=https://russianpopoyka.show] всероссийский конкурс [/url]...

  • rtt3ygySow

    2018-01-06 21:19:15

    nsmvqjgs [url=http://www.171dvd.com/]时时彩走势图[/url] cyrhpokz [url=http://www.uu456.co/fxk/]中国旅游地方网[/url] dntztppj [url=http://www.6763net.com/cgl/]字体网[/url] wewmuezg [url=http://www.shubaoi.com/]时时彩平台[/url] qbfhjwmy [url=http://www.ms315.co/]中国美术[/url] yfuiarmz [url=http://www.12999com.com/]数学网[/url] oeoalsgu. rjhwsgna [url=http://www.6763net.com/cgl/]字体网[/url] spxyxaku [url=http://www.gznf.co/dqj/]广东文化[/url] zsrkqntu [url=http://www.viz2016.com/]时事彩走势图[/url] yifqqbkq [url=http://www.hbzkw.co/syd/]自考网[/url] ihqpgxnw [url=http://www...

  • Buy A Essay

    2018-01-06 16:16:21

    essay writing service essay writing service need help with essay [url=https://essaywritingservice.us.org]essay writing service[/url]...