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

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

  • AaronPinge

    2017-04-01 15:08:56

    wh0cd541376 [url=http://cialisprofessional.us.com/]cialis lowest cost[/url] [url=http://viagrageneric.us.org/]viagra generic[/url]...

  • TracyHorne

    2017-04-01 15:07:53

    wh0cd701196 [url=http://prozacnorx.us.com/]PROZAC PRICE[/url] [url=http://cialisprofessional.us.com/]cialis tablets[/url]...

  • JeffreyNuB

    2017-04-01 14:27:08

    [url=http://piski.top/]секс порно с молоденькими смотреть[/url] [url=http://piski.top/]порно молоденьких дам[/url] [url=http://piski.top/]мужчины молоденькими порно[/url]...

  • TracyHorne

    2017-04-01 13:54:01

    wh0cd669231 [url=http://viagrageneric.us.org/]order viagra[/url] [url=http://sildenafilnorx.us.com/]sildenafil best price[/url]...

  • Alfredpal

    2017-04-01 13:20:26

    wh0cd125812 [url=http://propecia17.science/]propecia[/url] [url=http://effexor2017.bid/]effexor[/url] [url=http://levitra2017.science/]levitra 10 mg price[/url] [url=http://propecia2017.bid/]finasteride prostate[/url]...

  • EugeneTit

    2017-04-01 13:18:16

    wh0cd669235 [url=http://cialisprofessional.us.com/]learn more here[/url] [url=http://sildenafilnorx.us.com/]Sildenafil No Rx[/url]...

  • EugeneTit

    2017-04-01 11:33:22

    wh0cd637270 [url=http://viagrageneric.us.org/]generic viagra[/url] [url=http://propecianorx.us.com/]propecia no prescription[/url]...

  • MichaelThync

    2017-04-01 11:11:32

    wh0cd61878 [url=http://viagrageneric.us.org/]VIAGRA GENERIC[/url]...

  • Bennydip

    2017-04-01 10:43:11

    wh0cd20826 [url=http://buybenicar-7.top/]benicar 20 mg cost[/url] [url=http://buyfluoxetine4.top/]fluoxetine 20 mg cap[/url] [url=http://avodart100.us/]generic for avodart[/url] [url=http://buyalbendazole500.top/]buy albendazole online[/url] [url=http://buyprednisolone2.top/]prednisolone sodium[/url]...

  • CharlesHoups

    2017-04-01 10:12:07

    wh0cd244583 [url=http://cafergot500.top/]cafergot[/url] [url=http://buyhydrochlorothiazide-2016.top/]buy hydrochlorothiazide[/url] [url=http://retina15.us/]retin a[/url] [url=http://buybuspar12.us/]buspirone price[/url]...