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

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

  • Jamescat

    2017-12-15 01:40:23

    short term payday loans cash loan online best personal loans [url=https://shorttermloans.us.com]short term loans[/url]...

  • Jamescat

    2017-12-14 20:01:44

    federalist paper writers essay writing service wake county schools assignment [url=https://essaywritingservices.us.com]essay writing service review[/url]...

  • JaimeBooge

    2017-12-14 16:22:40

    дизельная насосная станция цена [url=https://general-energo.ru/]дгу 200 квт в контейнере цена[/url]...

  • Stevienip

    2017-12-14 16:22:35

    москва ул нижегородская д 32 стр 15 [url=http://safzem.ru/]нижегородская д 32 стр 15[/url]...

  • HenryNob

    2017-12-14 16:22:32

    блочно модульное оборудование для нефтегазового сектора [url=http://safzem.ru/]оао сафоновский электромашиностроительный завод официальный сайт[/url]...

  • Thomasengat

    2017-12-14 09:11:19

    нагрузочный модуль для дгу цена [url=https://general-energo.ru/]контейнер север-м габариты[/url]...

  • RickyUsemy

    2017-12-14 09:11:18

    производство дизель генераторных установок [url=http://safzem.ru/]пк сэз официальный сайт[/url]...

  • StuartowneR

    2017-12-14 09:11:17

    дизель-редукторный агрегат [url=http://safzem.ru/]дизельные насосные установки[/url]...

  • doode

    2017-12-14 02:40:51

    Some like doing sightseeing, some want lively sports, some go for sunny beaches. Research present that 65% of motorcyclists killed were not carrying a helmet. [url=http://xenical120mg.com/]xenical wirkung[/url] Nevertheless, you need to make it possible for you find a good company if you are going to buy one thing comparatively expensive, like trailers, on-line. How to decide on the Most suitable Two Means Radio for You? [url=http://otc-inhaler.com/catalog/Asthma/Prednisone.htm]prednisone history[/url]...

  • Jamescat

    2017-12-13 23:17:24

    payday loans for bad credit texas get a personal loan personal loans bad credit [url=https://badcreditpersonalloans.us.com]bad credit personal loans[/url]...