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

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

Коментарi

  • MichaelThync

    2017-04-06 22:44:25

    wh0cd25201 [url=http://prozacnorx.us.com/]prozac no rx[/url] [url=http://sildenafilnorx.us.com/]cheap sildenafil[/url] [url=http://propecianorx.us.com/]Propecia Sale[/url]...

  • TracyHorne

    2017-04-06 22:37:35

    wh0cd185029 [url=http://viagrageneric.us.org/]viagra generic[/url] [url=http://sildenafilnorx.us.com/]Sildenafil Pills[/url]...

  • AaronPinge

    2017-04-06 22:00:47

    wh0cd280936 [url=http://prozacnorx.us.com/]buy prozac[/url] [url=http://sildenafilnorx.us.com/]Order Sildenafil[/url] [url=http://cialisprofessional.us.com/]Cialis Tablets[/url]...

  • MichaelThync

    2017-04-06 21:04:10

    wh0cd975110 [url=http://viagrageneric.us.org/]VIAGRA GENERIC[/url] [url=http://prozacnorx.us.com/]next page[/url] [url=http://cialisprofessional.us.com/]cialis tablets[/url]...

  • AaronPinge

    2017-04-06 21:03:14

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

  • AaronPinge

    2017-04-06 19:54:00

    wh0cd217004 [url=http://cialisprofessional.us.com/]full report[/url] [url=http://propecianorx.us.com/]Propecia NO RX[/url]...

  • Alfredpal

    2017-04-06 18:47:40

    wh0cd527574 [url=http://artane.us/]artane with no script[/url]...

  • AaronPinge

    2017-04-06 18:45:58

    wh0cd185036 [url=http://prozacnorx.us.com/]prozac no rx[/url] [url=http://cialisprofessional.us.com/]cialis professional[/url] [url=http://sildenafilnorx.us.com/]Buy Sildenafil[/url]...

  • TracyHorne

    2017-04-06 18:16:55

    wh0cd57169 [url=http://prozacnorx.us.com/]prozac no rx[/url] [url=http://cialisprofessional.us.com/]cialis professional[/url]...

  • CharlesHoups

    2017-04-06 17:25:41

    wh0cd112018 [url=http://seroquel.club/]Seroquel For Anxiety And Depression[/url]...