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

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

Коментарi

  • Type Writer Paper

    2018-02-04 11:58:20

    writing an argumentative essay custom essay service writing an argumentative essay [url=https://argumentessay.us.com]argument essay[/url]...

  • Bad Credit

    2018-02-04 10:36:05

    cash advance loans advance loan cash advance loan [url=https://cashadvanceloan.us.com]advance loan[/url]...

  • Jamescat

    2018-02-04 09:07:29

    essay writer college essay prompts dissertation help online [url=https://collegeessaywriter.bid]college essay writer[/url] online essay essay writer school papers [url=https://schoolpapers.trade]college essay help[/url] loans online no credit check payday loan loan [url=https://moneyloan.trade]payday cash advances[/url] chatgirl live sex chat chat sex [url=https://chatsex.trade]bbw webcams[/url] where to buy essays online college essay help premium assignment insurance payment [url=https://collegeapplicationessay...

  • Pay To Write Essays

    2018-02-04 09:05:24

    essay writing reflective essay assignment essay writing [url=https://essaywriting.us.com]essay writing[/url]...

  • Jamescat

    2018-02-04 05:55:02

    website that does homework for you university homework help university homework help [url=https://criticalessay.trade]critical essay[/url] direct lenders payday loans direct payday loan lenders bad credit loans direct lenders [url=https://paydayloandirectlender.webcam]loans online bad credit[/url] online essay buy essay online buy essay [url=https://buyessayonline.stream]buy an essay[/url] payday loans online direct lender payday loans for bad credit bad credit payday loans [url=https://onlinepaydayloansforbadcredit...

  • Fastest Payday Loan

    2018-02-04 04:14:42

    fast personal loans online online personal loans loans online [url=https://loansonline.us.com]online loan[/url]...

  • Homework Assignments

    2018-02-04 03:54:39

    write a research paper write my research paper research essay [url=https://researchessay.us.com]essay writing about my school[/url]...

  • Quick Loan

    2018-02-04 00:49:24

    guaranteed credit approval credit loans guaranteed approval cash now [url=https://cashloans.us.com]instant cash loans[/url]...

  • MartyDot

    2018-02-04 00:40:22

    porno [url=https://gdz.lol/]porno[/url]...

  • Payday Loan Online

    2018-02-03 23:33:00

    cash advance loan instant approval loans cash advance loan [url=https://cashadvanceloan.us.com]express cash advance[/url]...