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

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

  • EugeneTit

    2017-04-04 23:35:25

    wh0cd943130 [url=http://cialisprofessional.us.com/]buy cialis[/url] [url=http://viagrageneric.us.org/]viagra generic[/url]...

  • TracyHorne

    2017-04-04 23:25:20

    wh0cd112011 [url=http://cialisprofessional.us.com/]cialis in canada[/url]...

  • EugeneTit

    2017-04-04 22:52:57

    wh0cd911165 [url=http://prozacnorx.us.com/]cheapest prozac[/url] [url=http://propecianorx.us.com/]propecia.com[/url]...

  • Bennydip

    2017-04-04 22:52:22

    wh0cd25201 [url=http://allopurinol.us.com/]allopurinol[/url]...

  • Alfredpal

    2017-04-04 22:44:26

    wh0cd486520 [url=http://buyrevia0.us/]buy revia[/url] [url=http://buybaclofen12.top/]baclofen online[/url] [url=http://buysildenafil7.us/]buy sildenafil[/url]...

  • MichaelThync

    2017-04-04 22:05:39

    wh0cd678307 [url=http://propecianorx.us.com/]propecia tablets[/url] [url=http://prozacnorx.us.com/]prozac no rx[/url]...

  • EugeneTit

    2017-04-04 22:01:07

    wh0cd879198 [url=http://propecianorx.us.com/]minoxidil propecia[/url]...

  • CharlesHoups

    2017-04-04 21:45:02

    wh0cd294723 [url=http://floxin.us/]floxin drops[/url]...

  • Alfredpal

    2017-04-04 21:06:55

    wh0cd422586 [url=http://atenolol2017.bid/]atenolol[/url] [url=http://adalat2017.cricket/]adalat[/url] [url=http://methotrexate2017.bid/]methotrexate[/url] [url=http://suhagra2017.science/]suhagra online[/url]...

  • EugeneTit

    2017-04-04 20:50:08

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