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

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

  • EugeneTit

    2017-03-09 08:57:40

    wh0cd911157 [url=http://orderviagra.review/]related site[/url] [url=http://buybentyl0.us/]buy bentyl[/url] [url=http://anafranilprice.club/]anafranil for premature ejaculation[/url] [url=http://buycialisonline.club/]average price of cialis[/url] [url=http://canadianpharmacycialis.review/]canadian pharmacy cialis online[/url]...

  • Matthewses

    2017-03-09 08:45:40

    I have read many good comments, but in my experience that the [url=http://cialiswalmartoverthecounter.net]cialis over the counter at walmart[/url] drug is excellent. He works long and well !! Also I tell you a price that is beneficial to take generic and not overpay, get the action is the same....

  • EugeneTit

    2017-03-09 08:25:35

    wh0cd879192 [url=http://antabusemedication.us.com/]antabuse pharmacy[/url]...

  • AaronPinge

    2017-03-09 03:07:17

    wh0cd870108 [url=http://propranolol2.us/]propranolol order online[/url]...

  • BenjaminAPl

    2017-03-09 03:01:09

    Our service is characterized by the fact that the project managers are the same parties, as well as all of you! This means that we do not have to dial the goal of money and hide, but on the contrary - we want to ensure long performance and reliability of the project, as we get profit in the same conditions as other users. [url=https://goo.gl/2bBsQ6][img]https://cloud-mine.online/uploads/100x100_en.gif[/img][/url]...

  • EugeneTit

    2017-03-09 02:51:34

    wh0cd719364 [url=http://cheapviagrapills.us.com/]cheap viagra pills[/url]...

  • AaronPinge

    2017-03-09 02:21:13

    wh0cd838143 [url=http://zaditor.club/]zaditor[/url] [url=http://omnicef.club/]omnicef[/url] [url=http://abana.club/]generic abana[/url] [url=http://zyrtec.club/]zyrtec[/url]...

  • EugeneTit

    2017-03-09 00:49:50

    wh0cd655434 [url=http://flagyl365.us.com/]flagyl[/url]...

  • MichaelThync

    2017-03-09 00:43:07

    wh0cd89133 [url=http://albenza.us.com/]albenza[/url]...

  • MichaelThync

    2017-03-08 23:52:05

    wh0cd57168 [url=http://buy-azithromycin.com/]buy azithromycin[/url]...