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

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

  • AaronPinge

    2017-04-05 05:34:18

    wh0cd239878 [url=http://propecianorx.us.com/]Propecia NO RX[/url] [url=http://viagrageneric.us.org/]viagra generic[/url]...

  • EugeneTit

    2017-04-05 05:16:32

    wh0cd89133 [url=http://viagrageneric.us.org/]viagra[/url]...

  • Bennydip

    2017-04-05 03:42:46

    wh0cd89134 [url=http://zofran.us.com/]can i order zofran online[/url]...

  • Alfredpal

    2017-04-05 03:22:11

    wh0cd614382 [url=http://allopurinol.us.com/]order allopurinol[/url]...

  • EugeneTit

    2017-04-05 02:32:52

    wh0cd25201 [url=http://prozacnorx.us.com/]prozac tablets[/url] [url=http://cialisprofessional.us.com/]cialis tablets[/url]...

  • Bennydip

    2017-04-05 01:44:36

    wh0cd25201 [url=http://buyrevia9.top/]buy revia[/url] [url=http://indocin3.top/]indocin[/url] [url=http://atarax-2016.top/]atarax[/url]...

  • AaronPinge

    2017-04-05 01:42:55

    wh0cd80051 [url=http://propecianorx.us.com/]Cheapest Propecia[/url]...

  • Alfredpal

    2017-04-05 01:04:43

    wh0cd550452 [url=http://azithromycin2017.cricket/]azithromycin[/url] [url=http://celebrex2017.cricket/]cheap celebrex[/url] [url=http://propecia2017.bid/]propecia[/url] [url=http://tretinoin2017.cricket/]tretinoin[/url] [url=http://propranolol2017.bid/]propranolol 80 mg er[/url]...

  • MichaelThync

    2017-04-05 00:11:42

    wh0cd742237 [url=http://sildenafilnorx.us.com/]Buy Sildenafil[/url] [url=http://propecianorx.us.com/]Propecia Generic[/url] [url=http://prozacnorx.us.com/]prozac tablets[/url]...

  • Alfredpal

    2017-04-04 23:41:31

    wh0cd518487 [url=http://methotrexate2017.science/]methotrexate price[/url] [url=http://antabuse2017.cricket/]buy disulfiram online[/url] [url=http://nexium17.science/]generic nexium canada[/url]...