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

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

  • Alfredpal

    2017-04-01 09:58:56

    wh0cd29911 [url=http://suhagra.us.com/]Suhagra[/url]...

  • Alfredpal

    2017-04-01 08:31:49

    wh0cd61879 [url=http://inderal.us.com/]inderal with no prescription[/url]...

  • EugeneTit

    2017-04-01 08:30:24

    wh0cd541367 [url=http://sildenafilnorx.us.com/]Order Sildenafil[/url] [url=http://prozacnorx.us.com/]prozac online[/url] [url=http://cialisprofessional.us.com/]Buy Cialis[/url]...

  • TracyHorne

    2017-04-01 08:30:03

    wh0cd605301 [url=http://propecianorx.us.com/]propecia no rx[/url]...

  • Bennydip

    2017-04-01 08:10:26

    wh0cd970719 [url=http://synthroid-8.top/]buy levothyroxine online[/url] [url=http://buyindocin2015.top/]buy indocin[/url] [url=http://stromectol9.top/]buy stromectol online[/url] [url=http://buyvardenafil2011.top/]buy vardenafil[/url] [url=http://buypropranolol75.us/]propranolol over the counter[/url]...

  • Alfredpal

    2017-04-01 07:30:31

    wh0cd29911 [url=http://buytretinoin.us.com/]buy tretinoin[/url]...

  • TracyHorne

    2017-04-01 06:25:42

    wh0cd573334 [url=http://propecianorx.us.com/]purchase finasteride without a prescription[/url] [url=http://viagrageneric.us.org/]order viagra[/url] [url=http://sildenafilnorx.us.com/]sildenafil no rx[/url]...

  • EugeneTit

    2017-04-01 06:05:35

    wh0cd477437 [url=http://propecianorx.us.com/]propecia generic price[/url]...

  • CharlesHoups

    2017-04-01 05:16:44

    wh0cd148688 [url=http://buyadvair16.top/]buy advair diskus[/url] [url=http://atenolol12.us/]atenolol[/url] [url=http://buyvardenafil-8.top/]vardenafil[/url] [url=http://methotrexate247.us/]methotrexate[/url] [url=http://amoxicillin-365.top/]amoxicillin[/url]...

  • MichaelThync

    2017-04-01 04:12:15

    wh0cd883909 [url=http://viagrageneric.us.org/]Viagra Tabs[/url] [url=http://prozacnorx.us.com/]prozac no rx[/url]...