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

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

Коментарi

  • JamesDix

    2017-12-03 18:12:47

    https://www.rusalochka.asia/forum/user/7858-ololololo - экскурсии в паттайе, экскурсии паттайя маноп....

  • Online Payday Loans

    2017-12-03 16:35:57

    quick and easy loans online easy approval personal loans quick personal loans for fair credit [url=https://quickloans.us.com]payday loans quick cash[/url]...

  • Dennistok

    2017-12-03 11:16:09

    [url=http://fkt63.ru/metallocherepica]стоимость металлочерепицы[/url]...

  • DarrellOvafe

    2017-12-03 10:51:32

    Привет всем участникам форума! Класный у вас сайт Нашел прикольные стрельба на сервере кс 1 6 http://serveracs16.net/ : [b] меню для сервера cs 1 6 [/b] http://serveracs16.net/game/cs [url=http://serveracs16.net/game/csgo] сервера майнкрафт 1 11 2 с кс го [/url] [url=http://serveracs16.net/game/source] не добавляет сервера в избранное css [/url] И тут нашёл много интересных новостей про игры и сервера: http://serveracs16.net/server_info/83.222.106.126:27557/...

  • FrankSmise

    2017-12-03 06:47:19

    [url=https://www.hoster24.ru/pay.html]хостинг компании россии[/url] - защита от ddos iptables, зарегистрировать домен на месяц....

  • Online Lenders

    2017-12-03 02:59:09

    short term loans online i need a loan fast short term payday loans direct lenders [url=https://shorttermloans.us.com]first american loans[/url]...

  • Cash Loan

    2017-12-03 01:28:34

    emergency personal loans fast cash loans for bad credit personal loans bad credit ok [url=https://badcreditpersonalloans.us.com]personal loans bad credit[/url]...

  • Loans For Bad Credit

    2017-12-03 00:01:03

    ez cash loans short term loans colorado best loan companies [url=https://shorttermloans.us.com]short term loans online[/url]...

  • SteveMub

    2017-12-02 22:11:33

    After series of semblance parasieten.cremes.amsterdam interviews and a countless of hide-out sanctorum into the products superstore, we persist in in up with the higher direct massagers in the industry....

  • Direct Lender Loans

    2017-12-02 09:09:12

    bad credit personal loans secured bad credit personal loan online loan for bad credit [url=https://badcreditpersonalloans.us.com]personal loans bad credit[/url]...