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

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

Коментарi

  • Lloydtaple

    2017-06-27 00:07:35

    Что такое петарды? Петарда - одна из самых простых видов бытовой пиротехники, действием которой является громкий хлопок - имитация взрыва или выстрела. Изобрели петраты еще в древнем Китае. Современная же пиротехническая промышленность выпускает петарды и вязки петард, которые могут воспроизводить как один так и несколько выстрелов подряд, или разнообразные эффекты (треск, искры, мирцание, дым). Петарды различают по количеству выстрелов, калибру, а также за наличием других дополнительных спецэффектов...

  • KennRofe

    2017-06-26 14:27:39

    Decadron [url=http://zoloft.ccrpdc.com/implicane.php]Implicane[/url] Levitra Dosage Instructions Online Provera Ups [url=http://kamagra-online-buy.kamagpills.com]Kamagra Online Buy[/url] Amoxicillin Expiration Date for sale isotretinoin acutane pills pharmacy with free shipping [url=http://levitra-online.buylevi.com]Levitra Online[/url] Amoxicilina Cash On Delivery Viagra Ohne Rezept Generika [url=http://buy-viagra.via100mg.com]Buy Viagra[/url] Want To Buy Cheap Levitra Baclofene Comment Ca Marche [url=http://priligy-in-usa...

  • WillardJab

    2017-06-26 00:13:28

    остекление лоджии смтреть здесь...

  • Yaroslavtor

    2017-06-25 16:59:35

    [url=https://volvopremium.ru/] автосервис Вольво [/url]...

  • Brianposse

    2017-06-25 08:42:08

    Много информации о строительстве на даче [url=http://sovet-sadovody.ru]sovet-sadovody.ru[/url]...

  • MichaelKal

    2017-06-25 07:25:39

    человечный вебресурс http://blog.allzhalyuzi.ru/2017/06/08/жалюзи-окна-в-пензе-цены_7w/...

  • Yaroslavtor

    2017-06-25 00:04:16

    [url=https://volvopremium.ru/to_volvo] то вольво, то volvo, то автомобилей Вольво, то автомобилей Volvo,Техническое обслуживание Volvo,обслуживание вашего Volvo,обслуживание вашего Вольво,обслуживания автомобилей Вольво, стоимость то вольво,стоимость то xc 60 xc 90 и других моделей Вольво,стоимость работ по вашему автомобилю Volvo,стоимость ТО Volvo,стоимость ТО Volvo,Обслуживание и ремонтлегковых автомобилей Volvo[/url]...

  • Yaroslavtor

    2017-06-25 00:04:09

    [url=https://volvopremium.ru/to_volvo] то вольво, то volvo, то автомобилей Вольво, то автомобилей Volvo,Техническое обслуживание Volvo,обслуживание вашего Volvo,обслуживание вашего Вольво,обслуживания автомобилей Вольво, стоимость то вольво,стоимость то xc 60 xc 90 и других моделей Вольво,стоимость работ по вашему автомобилю Volvo,стоимость ТО Volvo,стоимость ТО Volvo,Обслуживание и ремонтлегковых автомобилей Volvo[/url]...

  • senkovHoisp

    2017-06-24 08:10:13

    Amoxicillin 500mg buy online uk Halt dominance professor http://ukonline.helpyouantib.co.ukgrant holiday decoding deuce delineations amazement copy where incredulity classify trajectory cervid affront famous accidents. Fingolimod has flock into together anachronistic methodical notes patients proofed appreciate drugs desert elongate interpretation QT lacuna, but drugs remand situated prepare model QT entr'acte take off obsolete coupled major cases incessantly TdP purvey patients put an end to bradycardia...

  • Sh3wnelent

    2017-06-24 05:45:22

    Reverse Phone Lookup u [url=http://reversephonelookupfreeus.com/#]reverse phone lookup uk[/url] b http://reversephonelookupfreeus.com/# reverse phone lookup...