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

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

  • TracyHorne

    2017-03-08 14:33:57

    wh0cd965997 [url=http://naprosyn.club/]naprosyn 500 mg tablet[/url] [url=http://lamisil.club/]buy lamisil[/url] [url=http://himcolin.club/]himcolin[/url] [url=http://viramune.club/]buy viramune[/url]...

  • AaronPinge

    2017-03-08 14:33:37

    wh0cd550451 [url=http://nexium-generic.in.net/]nexium generic[/url] [url=http://zoloft.fashion/]zoloft[/url] [url=http://retin-a-cream.in.net/]retin-a[/url] [url=http://motilium.fashion/]motilium[/url] [url=http://buynolvadex4.us/]nolvadex uk[/url]...

  • EugeneTit

    2017-03-08 14:01:17

    wh0cd335774 [url=http://metformin2017.us.com/]metformin[/url] [url=http://advairdiskus.us.com/]advair hfa[/url] [url=http://tretinoin.us.com/]Tretinoin[/url]...

  • AaronPinge

    2017-03-08 13:11:47

    wh0cd518486 [url=http://cipro500.review/]buy cipro without prescription[/url] [url=http://buytrazodone2017.us/]buy trazodone[/url] [url=http://bentyl.us/]bentyl[/url] [url=http://clomid10.top/]clomid online cheap[/url]...

  • TracyHorne

    2017-03-08 13:07:19

    wh0cd934032 [url=http://bentyl.us.com/]BENTYL[/url]...

  • TracyHorne

    2017-03-08 11:46:04

    wh0cd902067 [url=http://nimotop.club/]nimotop[/url] [url=http://zovirax.club/]cost of zovirax[/url]...

  • MichaelThync

    2017-03-08 11:15:58

    wh0cd623470 [url=http://zebeta.club/]bisoprolol zebeta[/url] [url=http://nimotop.club/]nimotop[/url] [url=http://zyrtec.club/]zyrtec[/url] [url=http://trandate.club/]trandate[/url] [url=http://himcolin.club/]himcolin[/url] [url=http://serophene.club/]serophene[/url]...

  • EugeneTit

    2017-03-08 10:05:06

    wh0cd239877 [url=http://vpxl.us.com/]Vpxl Online[/url]...

  • TracyHorne

    2017-03-08 09:15:11

    wh0cd838135 [url=http://mirapex.club/]mirapex[/url] [url=http://zestoretic.club/]zestoretic[/url] [url=http://himcolin.club/]generic himcolin[/url] [url=http://zaditor.club/]zaditor[/url] [url=http://tricor.club/]tricor[/url] [url=http://levothroid.club/]levothroid online[/url]...

  • EugeneTit

    2017-03-08 08:23:14

    wh0cd207912 [url=http://albendazoleonline.us.com/]albendazole for sale[/url]...