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

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

  • LouisClums

    2017-11-08 10:32:32

    [url=https://reportscam.com/]reportscam.com[/url]...

  • Joecat

    2017-11-08 07:37:28

    payday loans bad credit today bad credit personal loans personal loans bad credit [url=https://badcreditpersonalloans.us.com]bad credit personal loans guaranteed[/url]...

  • College Paper Writer

    2017-11-08 03:28:02

    help with college essays essay online buy buy an essay for college [url=https://buyessay.us.com]buy essay online[/url]...

  • Joecat

    2017-11-08 03:24:56

    essay writing service essay writing service essay writing service [url=https://essaywritingservices.us.com]essay writing service[/url]...

  • Joecat

    2017-11-08 02:58:09

    speedy cash payday loans online More Help [url=https://onlineloans.us.com/]best payday loan online[/url]...

  • Online Essays

    2017-11-08 01:59:37

    buy essay online buy essay buy essays online [url=https://buyessay.us.com]need help to write an essay[/url]...

  • Buy Custom Essay

    2017-11-07 23:00:29

    buy essays online buy essays essay buying [url=https://buyessays.us.com]buy an essay for college[/url]...

  • Joecat

    2017-11-07 21:04:54

    buy papers online buy essay papers online online essays [url=https://essayonline.us.com]online essay writing[/url]...

  • Write Essay For Me

    2017-11-07 20:46:43

    order essay online cheap quick buy essay help on essay [url=https://buyessay.us.com]buy essay online[/url]...

  • Joecat

    2017-11-07 15:53:33

    buy an essay cheap buy essays buy essay online [url=https://buyessay.us.com]buy essay online[/url]...