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

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

  • Pay Day Loan

    2017-10-07 00:22:57

    payday loans online pa payday loans online payday loans online [url=https://paydayloans.us.org/]loans for bad credit[/url]...

  • Jamescat

    2017-10-06 22:01:36

    online payday loans payday loans online a payday loan [url=https://onlineloans.us.com/]payday loans online[/url]...

  • Easy Payday Loan

    2017-10-06 18:42:04

    online loans easy payday loans online Read Full Article [url=https://onlineloans.us.com/]payday loans online[/url]...

  • Steverssak

    2017-10-06 16:12:24

    Дженерик дапоксетин является аналогом дапоксетина силденафил sandoz отзывы Он не отличается вследствие оригинала ни составом, ни свойствами, все стоит гораздо дешевле. Благодаря дапоксетину мужчина способен продлить свое удовольствие и дотла удовлетворить партнершу, сколько существенно повышает его самооценку, наделяет уверенностью в мужской силе, избавляет от нервозности и повышает настроение. Создан произведение в Германии, изготовляется в Индии. Интересно, сколько производился дапоксетин, для продавать пациентов через депрессии...

  • Payday Loans

    2017-10-06 16:04:45

    las vegas payday loans online payday loans online online payday loans [url=https://paydayloansonline.us.com/]payday loans online[/url]...

  • JosephBob

    2017-10-06 15:45:32

    [url=https://sevastopol-jurist.ru/advokat/]sevastopol-jurist.ru/advokat[/url]...

  • Jamescat

    2017-10-06 14:40:14

    online homework https://writemyessay.us.com homework help online [url=https://essayonline.us.com]explained here[/url]...

  • MichaelUribe

    2017-10-06 11:22:00

    срок годности выписки из егрн [url=http://fast-egrn.ru]полная выписка из егрн[/url] [url=http://fast-egrn.ru]какие сведения содержит выписка из егрюл[/url] [url=http://fast-egrn.ru]выписки из егрюл с доставкой[/url] [url=http://fast-egrn.ru]выписка из егрюл срочно с доставкой[/url] [url=http://fast-egrn.ru]проверка выписки из егрн[/url]...

  • Thomasimmit

    2017-10-06 05:25:05

    [url=http://stick-spb.ru/]обои оклейка[/url] - шпатлевка стен под обои, поклейка обоев цена за м в спб....

  • Jamescat

    2017-10-05 13:16:11

    instant online payday loan payday loans online payday loans online [url=https://onlineloans.us.com/]payday loans online[/url]...