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

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

  • TracyHorne

    2017-03-31 08:05:58

    wh0cd979825 [url=http://provera17.science/]buy provera pills with mastercard[/url] [url=http://lipitor2017.cricket/]lipitor[/url] [url=http://tadacip2017.bid/]tadacip online[/url] [url=http://cymbalta2017.cricket/]cymbalta[/url] [url=http://albuterol17.science/]albuterol[/url]...

  • MichaelThync

    2017-03-31 08:01:30

    wh0cd340496 [url=http://indocin.club/]indocin wihout prescription[/url]...

  • CharlesHoups

    2017-03-31 07:30:38

    wh0cd714995 [url=http://elocon.top/]elocon[/url]...

  • Alfredpal

    2017-03-31 07:22:33

    wh0cd372450 [url=http://buytorsemide.us/]torsemide[/url]...

  • MichaelThync

    2017-03-31 06:46:15

    wh0cd308531 [url=http://buycelebrex3.top/]celebrex[/url] [url=http://buydiflucan1.top/]buy diflucan[/url] [url=http://anafranil2016.us/]anafranil[/url]...

  • EugeneTit

    2017-03-31 06:25:18

    wh0cd947849 [url=http://valtrexcheap.us.com/]cheap valtrex[/url]...

  • AaronPinge

    2017-03-31 06:25:04

    wh0cd628196 [url=http://erythromycin.us.com/]buy erythromycin[/url] [url=http://sildenafil.us.org/]sildenafil[/url] [url=http://albuterol365.us.com/]Albuterol[/url]...

  • Bennydip

    2017-03-31 05:54:58

    wh0cd619088 [url=http://valtrex.us.com/]generic valtrex[/url]...

  • TracyHorne

    2017-03-31 05:28:47

    wh0cd915891 [url=http://buyfurosemide75.top/]buy furosemide[/url] [url=http://buybentyl2014.us/]bentyl[/url] [url=http://buyphenergan2017.top/]phenergan[/url]...

  • EugeneTit

    2017-03-31 05:06:17

    wh0cd883911 [url=http://buyhydrochlorothiazide.us.com/]hydrochlorothiazide no prescription[/url] [url=http://tamoxifen365.us.com/]nolvadex online[/url] [url=http://buy-viagra-soft.com/]buy viagra soft[/url]...