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

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

  • CharlesHoups

    2017-09-04 00:46:40

    wh0cd1629833 [url=http://genericseroquel.pro/]generic seroquel[/url] [url=http://avodart.zone/]avodart[/url]...

  • MikeTum

    2017-09-04 00:16:47

    [url=https://essayonline.us.com/]essay writing[/url]...

  • MichaelThync

    2017-09-04 00:12:22

    wh0cd1776783 [url=http://zithromax.news/]where to buy zithromax online[/url]...

  • Stewarthib

    2017-09-03 23:17:12

    wh0cd1703303 [url=http://abilifycost.pro/]abilify[/url]...

  • MichaelThync

    2017-09-03 23:13:44

    wh0cd86871 [url=http://levaquin500mg.pro/]levaquin[/url] [url=http://buycytotec.store/]where to get cytotec[/url] [url=http://elimite.directory/]elimite[/url]...

  • MichaelThync

    2017-09-03 22:02:45

    wh0cd1703308 [url=http://buy-vpxl.reisen/]buy vpxl[/url] [url=http://prozac.zone/]additional info[/url]...

  • BrettAginc

    2017-09-03 21:50:20

    wh0cd1482891 [url=http://acyclovir.us.com/]Buy Acyclovir[/url]...

  • Billymup

    2017-09-03 21:31:58

    wh0cd1482864 [url=http://vibramycin.pro/]doxycycline cheap[/url] [url=http://metformin.reisen/]metformin[/url]...

  • CharlesHoups

    2017-09-03 21:04:13

    wh0cd13398 [url=http://tretinoincream005.pro/]tretinoin cream 0.05 price[/url] [url=http://diflucan.systems/]order fluconazole 150 mg for men[/url]...

  • MikeTum

    2017-09-03 20:58:35

    [url=https://freesexchat.us.com/]free adult sex chat[/url] [url=https://essaywritingservices.us.com/]essay writing service[/url]...