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

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

Коментарi

  • Jamescat

    2017-10-16 07:31:19

    live sex chat sex chat chat sex [url=https://sexchat.us.com]webcam sex chat free[/url]...

  • Jamescat

    2017-10-16 00:13:07

    essay writing services review freedom writer essay professional essay writing service [url=https://essaywritingservice.us.com]essay writing service[/url]...

  • Jamescat

    2017-10-15 20:22:31

    payday loan online payday loans online payday loans [url=https://paydayloansonline.us.com/]no credit check payday loans online direct lender[/url]...

  • ReiorkguSow

    2017-10-15 19:33:31

    Nike: all of us are pretty effectively alert to this label. Nike is a preferred brand which enjoys supplying top quality footwear. If you are into stunning boots you will like Nike footwear. Who'll not like to have a pair of this famed brand domain name? No matter whether you will be needing foot wears for casual everyday living or graphics formal Nike is a most effective choice ought to fulfill your prerequisite. There exist several countless moment's celebrities, athletes, and popular music artists have been seen wearing cheap real jordans...

  • Jamescat

    2017-10-15 13:40:32

    money loan loans online payday loans online [url=https://onlineloans.us.com/]payday loans online[/url]...

  • Essay Writing

    2017-10-15 10:40:38

    essays writing services online essay writing service essay writing service [url=https://essaywritingservices.us.com]what is the best custom essay writing service[/url]...

  • Third Grade Homework

    2017-10-15 05:20:10

    essay writing service info professional essay writing services [url=https://essaywritingservices.us.com]wake county schools assignment[/url]...

  • Jamescat

    2017-10-15 02:50:29

    sex girl video chat web cam sex chat sex chat [url=https://freesexchat.us.com]live webcams sex[/url]...

  • JaNeshig

    2017-10-14 16:08:39

    Cheapest book a trip | Buy a plane ticket - airticketbooking.top [url=http://airticketbooking.top]Click here>>>[/url] Не лишь мужчины преклонного возраста страдают силденафил северная звезда 100 мг от ухудшения потенции, только и молодые мужчины, находящиеся в самом расцвете своих жизненных сил, нередко сталкиваются с подобными неприятностями. Способствуют проблемам с потенцией спеман форте или сиалис постоянные стрессы, повсюду сопровождающие современного человека, сидячая работа, курение, злоупотребление...

  • Timothysoask

    2017-10-13 14:09:12

    [url=https://www.autocompas.ru/]запчасти для иномарок[/url]...