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

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

Коментарi

  • CharlesHoups

    2017-04-05 17:24:13

    wh0cd646347 [url=http://omnicef247.club/]Buy Omnicef[/url]...

  • Alfredpal

    2017-04-05 17:21:30

    wh0cd934042 [url=http://buynolvadex.us.com/]generic nolvadex[/url]...

  • MichaelThync

    2017-04-05 16:48:47

    wh0cd207912 [url=http://viagrageneric.us.org/]Viagra[/url] [url=http://cialisprofessional.us.com/]cialis tablets[/url]...

  • Alfredpal

    2017-04-05 16:25:15

    wh0cd902077 [url=http://cialis2017.top/]cefixime[/url] [url=http://buyalbendazole6.us/]buy albendazole on line[/url] [url=http://proscar2015.top/]proscar[/url]...

  • MichaelThync

    2017-04-05 15:43:50

    wh0cd175947 [url=http://propecianorx.us.com/]cheapest propecia[/url]...

  • AaronPinge

    2017-04-05 14:30:29

    wh0cd463637 [url=http://viagrageneric.us.org/]viagra tabs[/url] [url=http://propecianorx.us.com/]PROPECIA NO RX[/url]...

  • Bennydip

    2017-04-05 14:24:08

    wh0cd376826 [url=http://cytotec365.us.com/]misoprostol[/url]...

  • CharlesHoups

    2017-04-05 13:33:38

    wh0cd550450 [url=http://allopurinol.us.com/]buy allopurinol[/url]...

  • MichaelThync

    2017-04-05 11:03:54

    wh0cd48081 [url=http://cialisprofessional.us.com/]average cost of cialis[/url]...

  • CharlesHoups

    2017-04-05 10:56:12

    wh0cd486520 [url=http://acyclovir5.top/]zovirax without a rx[/url] [url=http://buymetformin250.us/]buy metformin er[/url] [url=http://buybupropion911.top/]buy bupropion online[/url] [url=http://eurax9.top/]continue reading[/url] [url=http://atomoxetine.review/]atomoxetine[/url]...