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

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

  • MichaelThync

    2017-04-07 09:54:17

    wh0cd312893 [url=http://cialisprofessional.us.com/]CIALIS PROFESSIONAL[/url] [url=http://prozacnorx.us.com/]cheap generic prozac[/url]...

  • Alfredpal

    2017-04-07 09:37:17

    wh0cd312898 [url=http://prozac2017.bid/]prozac[/url] [url=http://cialis20mg2017.cricket/]cialis 20mg[/url] [url=http://cialiscost2017.science/]generic cialis soft tabs[/url]...

  • CharlesHoups

    2017-04-07 09:23:22

    wh0cd751335 [url=http://buy-colchicine.com/]probenecid colchicine tablets[/url]...

  • MichaelThync

    2017-04-07 06:45:40

    wh0cd248963 [url=http://sildenafilnorx.us.com/]sildenafil citrate tablet[/url] [url=http://prozacnorx.us.com/]prozac no rx[/url] [url=http://propecianorx.us.com/]propecia sale[/url]...

  • CharlesHoups

    2017-04-07 05:23:46

    wh0cd591510 [url=http://biaxin247.club/]biaxin[/url]...

  • TracyHorne

    2017-04-07 04:29:36

    wh0cd376825 [url=http://sildenafilnorx.us.com/]where to buy sildenafil[/url] [url=http://viagrageneric.us.org/]viagra generic[/url] [url=http://prozacnorx.us.com/]prozac no rx[/url]...

  • TracyHorne

    2017-04-07 02:35:18

    wh0cd312895 [url=http://cialisprofessional.us.com/]cialis lowest cost[/url] [url=http://propecianorx.us.com/]propecia[/url] [url=http://sildenafilnorx.us.com/]Order Sildenafil[/url]...

  • CharlesHoups

    2017-04-07 02:17:12

    wh0cd463643 [url=http://prednisolonenorx.us.com/]prednisolone online[/url]...

  • MichaelThync

    2017-04-07 00:50:14

    wh0cd89131 [url=http://cialisprofessional.us.com/]generic cialis no prescription[/url]...

  • AaronPinge

    2017-04-06 23:23:14

    wh0cd312901 [url=http://propecianorx.us.com/]propecia no rx[/url] [url=http://cialisprofessional.us.com/]Cialis Professional[/url] [url=http://viagrageneric.us.org/]viagra pills[/url]...