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

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

Коментарi

  • Sh3wnelent

    2017-07-23 18:08:04

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

  • Mkaaswift

    2017-07-23 16:03:50

    h82wvxo739wei2tfjp [url=http://google.us]google[/url] google gjj3wvvgckvzjsl3z1...

  • Augustmax

    2017-07-23 07:10:25

    добросердечный вебсайт http://mgbaltic.net/...

  • AlfredoDrert

    2017-07-23 00:17:08

    Последние женские новости здесь [url=http://www.tvoirazmer.ru/]www.tvoirazmer.ru[/url]...

  • MajorElown

    2017-07-22 19:20:06

    хорош вебсайт http://maglid.ru/...

  • PrestonSwice

    2017-07-22 15:55:21

    You bookreport.pet brains independent a mark with point of belief order charm alone be met via the requirements criterion. Microsoft cavalcade rock http://bookreport.pet/ series abstruse inquire into acrobat contents fighter http://bookreport.pet/ downloading testing required. aqa use of maths coursework as level english coursework word limit...

  • Stephenvexaf

    2017-07-22 10:20:45

    были жк лесобережный душе переворотов жк лесобережный опять...

  • DouglasmEnue

    2017-07-22 10:15:07

    анализ на стг [url=https://medcentr-diana-spb.ru/]анализ мочи при анемии[/url]...

  • RichardOi

    2017-07-22 06:59:16

    pgtgiws http://www.agriturismo-a-firenze.it/632-converse-borchie-grigie.php http://www.unionfotocenter.it/249-scarpe-tods-uomo-su-ebay.html http://www.romars.it/air-max-2014-nere-prezzo-764.html http://www.claudiorussofotografo.it/486-air-max-2015-nere.htm http://www.cosebuonedicampagna.it/ray-ban-wayfarer-indossati-639.html [url=http://www.ubriacodamore.it/409-camicie-abercrombie.html]Camicie Abercrombie[/url] [url=http://www.studiolafratta.it/463-adidas-stan-smith-come-abbinarle.htm]Adidas Stan Smith Come Abbinarle[/url] [url=http://www...

  • MichaelThork

    2017-07-22 06:49:21

    Самые вкусные рецепты здесь [url=http://ppfood.ru/]ppfood.ru[/url]...