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

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

  • Pay To Write Essays

    2018-01-18 22:40:50

    argumentative essay for college students cuny college essay essay editor [url=https://essaywriter.us.com]essay maker[/url]...

  • Online Loan

    2018-01-18 22:37:12

    payday loans online no credit check payday loans instant approval loans online bad credit [url=https://paydayloansonline.us.org]no credit check payday loans instant approval[/url]...

  • Speedycash

    2018-01-18 21:47:40

    bad credit loans direct personal loans online loans online [url=https://loansonline.us.com]payday loans online[/url]...

  • Pay Day Loan

    2018-01-18 19:36:43

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

  • Loan

    2018-01-18 19:15:57

    where can i get a loan with bad credit loans with bad credit loans with bad credit [url=https://loansforbadcredit.us.org]bad credit loans[/url]...

  • Money Loan

    2018-01-18 18:58:06

    personal loans personal loans bad credit personal loans for bad credit [url=https://personalloans.us.org]100 day payday loan[/url]...

  • Jamescat

    2018-01-18 18:32:03

    wife webcam cam sites wife webcam [url=https://wifewebcam.cricket]nude show[/url] research paper college essays college paper [url=https://collegepaper.trade]term paper[/url] chat sex adult chat chat sex [url=https://chatsex.bid]sex chat[/url] free sex chats webcam dildo cam porn [url=https://webcammasturbation.stream]webcam sluts[/url] common application essay prompts common application essay prompts cheap research papers [url=https://commonapplicationessayprompts.science]common application essay prompts[/url] research papers research essay research essay [url=https://researchessay...

  • Personal Loans

    2018-01-18 18:14:43

    payday loan faxless payday loan payday loans no fax [url=https://paydayloan.us.org]payday loan[/url]...

  • Pay For Essay Online

    2018-01-18 17:41:38

    assignment help service homework help help with homework [url=https://homeworkhelp.us.com]help me with my homework[/url]...

  • Assignment Helper

    2018-01-18 17:40:20

    writing service writing service essay writing services [url=https://essaywritingservices.us.org]essay writing service[/url]...