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

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

  • Loan

    2018-01-28 04:52:00

    personal loan no credit check loans no credit check regions loans [url=https://loansnocreditcheck.us.com]loans no credit check[/url]...

  • Jamescat

    2018-01-28 02:48:44

    fastest payday loan payday loan companies payday loan online [url=https://fastestpaydayloan.bid]fast payday loan[/url] college paper college essays college paper [url=https://collegepaper.cricket]college essay prompts[/url] loans online bad credit fast payday loans loans online bad credit [url=https://loansonlinebadcredit.webcam]loans online bad credit[/url] free sex webcam erotic sex chat erotic sex chat [url=https://sexchat.cricket]sex chat[/url] online payday loan instant approval online payday loan instant approval online payday loan [url=https://onlinepaydayloaninstantapproval...

  • Loans

    2018-01-28 02:23:47

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

  • Essay Help

    2018-01-28 01:24:47

    annotated bibliography assignment editing service essay writing service [url=https://essaywritingservices.us.org]essay writing services[/url]...

  • Custom Essay Writers

    2018-01-28 00:29:21

    essay writers college essay rough draft essay writer [url=https://essaywriter.us.com]essay helper[/url]...

  • Online Homework

    2018-01-27 22:52:29

    write an argumentative essay argument essay research based essay [url=https://argumentessay.us.com]an argumentative essay[/url]...

  • Online Essays

    2018-01-27 20:10:24

    personal essays for college write me an essay buy essay usa [url=https://essays.us.com]essay4students[/url]...

  • Jamescat

    2018-01-27 17:58:30

    online payday loans for bad credit bad credit payday loans payday loans for bad credit [url=https://paydayloansforbadcredit.stream]bad credit payday loans[/url] free sex video chat free sex webcam chat sex chat free [url=https://freechatrooms.webcam]sex chat free[/url] adult webcam sites cam sites webcam porn sites [url=https://adultcamsites.trade]webcam porn sites[/url] quick loans cash loans loans online [url=https://quickloans.science]loans[/url] college essay college paper college paper [url=https://collegepaper...

  • Payday Loan Online

    2018-01-27 17:38:48

    loan online loan online online loan [url=https://onlineloan.us.com]loan application[/url]...

  • Jamescat

    2018-01-27 17:12:20

    paper writing term paper writing my paper [url=https://paperwriting.webcam]paper writing service[/url] ontario.ca homework help buy essay buy essay online [url=https://buyessayonline.stream]buy essay online[/url] free sexy webcams free xxx webcams chatgirl [url=https://freexxxwebcams.webcam]adult webcams[/url] online sluts webcam pussy girl webcam [url=https://webcampussy.webcam]wife on webcam[/url] payday advance loans bad credit payday loans cash til payday loan [url=https://smallpaydayloans.cricket]bad credit loans direct lenders[/url] easy online payday loans easy payday loans online cash loan lenders [url=https://easyonlinepaydayloans...