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

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

  • NelvinMak

    2017-11-05 10:23:49

    Daarnaast kunt u rimpelvorming voorkomen met diverse behandelingen. Beste middel tegen striae vlog freshfingers.cremes.amsterdam. Britse vrouwen denken een wondermiddel ontdekt te hebben....

  • Jamescat

    2017-11-04 23:00:48

    loans for bad credit payday loans online loans for bad credit [url=https://paydayloans.us.org/]top payday loans online[/url]...

  • Quick Loan

    2017-11-04 20:53:15

    ez payday loans short term bad credit loans short loans [url=https://shorttermloans.us.com]short term loans online[/url]...

  • Jamescat

    2017-11-04 20:10:48

    best payday loan online online payday loans for bad credit click for source [url=https://onlineloans.us.com/]the best online payday loans[/url]...

  • VincentFes

    2017-11-04 17:52:53

    Последние строительные советы здесь [url=http://495realty.ru/]495realty.ru[/url]...

  • Jamescat

    2017-11-04 15:47:11

    help with college essay college essay typer writing college essays for money [url=https://collegeessay.us.com]help writing essays for college[/url]...

  • Loans

    2017-11-04 15:36:49

    best short term loans short term loans short term payday loans [url=https://shorttermloans.us.com]quick short term loans[/url]...

  • Anthonyinsib

    2017-11-04 12:30:37

    OSAC has opened RICSNC - Rhode Island Community Spay/Neuter Clinic ... Our vision is to end the need to euthanize healthy, adoptable dogs and cats Cats Find Low Cost Spay/Neuter . Bothclumpingcatlitterand claycatlittersare available. ... Pet parents can find greatcatlitterbrandslike TidyCats , Arm & Hammer, Fresh Step and Kmart Your browser indicates if you've visited this link . [url=http://comsufsuyobd.soup.io/]Funny cat noises[/url] [url=http://6provmistuba9r.soup.io/]Blood in urine symptoms[/url] Why is my cat urinating inapproppriately? Article ID: 251...

  • Payday Loans Online

    2017-11-04 11:41:29

    quick loans same day quick payday loans quick loans with bad credit [url=https://quickloans.us.com]fast loans lenders[/url]...

  • Alexanhig

    2017-11-04 10:24:18

    Купить виагру сиалис ed http://edvss.onlinehelpyoued.bid/28995-legia-with-fantastic-message-to-uefa.html женский силденафил купить в аптеке Не как мужчины преклонного возраста страдают купить виагру почтой супер сила воли через ухудшения потенции, но и молодой мужчины, находящиеся в самом расцвете своих жизненных сил, силденафил для чего он многократно сталкиваются с подобными неприятностями. Способствуют проблемам с потенцией силденафил с3 25 мг постоянные стрессы, везде сопровождающие современного...