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

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

Коментарi

  • MichaelThync

    2017-09-04 04:29:46

    wh0cd1923731 [url=http://amoxicillin.us.com/]amoxicillin[/url]...

  • Billymup

    2017-09-04 04:23:07

    wh0cd1703288 [url=http://prozac.zone/]prozac[/url]...

  • MikeTum

    2017-09-04 03:36:29

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

  • BrettAginc

    2017-09-04 03:27:30

    wh0cd1703297 [url=http://kamagra.live/]kamagra[/url]...

  • CharlesHoups

    2017-09-04 02:58:22

    wh0cd1629833 [url=http://acyclovircream.pro/]acyclovir cream generic[/url] [url=http://genericcialis.directory/]generic cialis[/url] [url=http://albuterol.store/]albuterol[/url]...

  • CharlesHoups

    2017-09-04 02:43:33

    wh0cd1629833 [url=http://buytenormin.reisen/]tenormin anxiety[/url] [url=http://buytadalissx.reisen/]tadalis sx[/url] [url=http://buyabilify.shop/]abilify[/url]...

  • MichaelThync

    2017-09-04 02:19:59

    wh0cd1850256 [url=http://fluoxetine20mg.pro/]fluoxetine capsules[/url] [url=http://elimite.schule/]elimite[/url] [url=http://buyadvair.shop/]buy advair[/url]...

  • BrettAginc

    2017-09-04 01:11:38

    wh0cd1629824 [url=http://acyclovir.us.com/]acyclovir[/url]...

  • MichaelThync

    2017-09-04 01:05:16

    wh0cd1850242 [url=http://amoxicillin.us.com/]amoxicillin[/url]...

  • CharlesHoups

    2017-09-04 00:49:33

    wh0cd1556360 [url=http://tetracycline.news/]tetracycline[/url] [url=http://lasix.systems/]lasix[/url]...