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

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

  • Jamescat

    2017-10-03 11:16:58

    payday loans online payday loans online payday loans online [url=https://bestpaydayloansonline.us.com/]payday loans online[/url]...

  • Jamescat

    2017-10-03 05:46:23

    trusted payday loans online payday loans online view [url=https://paydayloansonline.us.com/]payday loans online[/url]...

  • Random Assignments

    2017-10-03 04:11:03

    HTTP://WRITEMYESSAY.US.COM essay writing online writing essay online [url=https://essayonline.us.com]college essay help online[/url]...

  • Jamescat

    2017-10-03 03:43:25

    chat sex webcam online click sex chat porn [url=https://freesexchat.us.com]free sex chat[/url]...

  • Jamescat

    2017-10-03 02:20:16

    payday loans direct lenders for bad credit https://LoansForBadCredit.us.com/ [url=https://loansforbadcredit.us.com/]resource[/url]...

  • Chrisgat

    2017-10-03 02:02:42

    cpigyat http://www.grandstand2000.co.uk/nike-air-presto-br-qs-white-black-486.htm http://www.farnham-park-hotel.co.uk/alexander-mcqueen-flat-shoes-sale-917.html http://www.ras-net.co.uk/nike-flyknit-max-black-and-white-216.htm http://www.overdriverockband.co.uk/wayfarer-ray-ban-original-951.htm http://www.hoofers.co.uk/906-giuseppe-zanotti-for-women.php [url=http://www.adams-food-ingredients.co.uk/hollister-co-uk-stores-986.htm]Hollister Co Uk Stores[/url] [url=http://www.bjdn.co.uk/dolce-and-gabbana-trainers-mens-057...

  • Loan Cash

    2017-10-02 00:58:53

    online payday loan personal loans texas payday loans online [url=https://paydayloans.us.org/]payday loans online no credit check[/url]...

  • MorrisZop

    2017-10-01 12:59:42

    кэшбэк сервис обзор Самой лучшие расширение для кешбека[url=https://depo120.com]кэшбэк алиэкспресс лучший[/url]...

  • Timothyalish

    2017-09-30 16:24:00

    aOur company offers a wide variety of non prescription drugs. Visit our health portal in case you want to strengthen your health with a help health products. [url=http://3u.cytotecbuynow.co.uk/cytotec-5/order-misoprostol-iii-83635.html]http://3u.cytotecbuynow.co.uk/cytotec-5/order-misoprostol-iii-83635.html[/url] Our company provides herbal health and related products. Visit our health contributing portal in case you want to improve your health. [url=http://p2x.cytotecbuynow.co.uk/cytotec-1/cytotec-bangkok-where-to-buy-16414...

  • Jamescat

    2017-09-30 14:18:50

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