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

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

  • Speedycash

    2018-02-08 21:03:57

    online personal loan bad credit installment loans installment loans [url=https://installmentloans.us.com]installment loans[/url]...

  • Buy Essay Paper

    2018-02-08 19:53:17

    essays write essay for me essays [url=https://essays.us.com]essay for me[/url]...

  • Write College Essay

    2018-02-08 12:30:45

    essay writer essay maker writing argument essays [url=https://essaywriter.us.com]writing essays games[/url]...

  • Money Loan

    2018-02-08 11:24:24

    loans no credit check loans no credit check loans with no credit check [url=https://loansnocreditcheck.us.com]money loans no credit check[/url]...

  • HaroldZow

    2018-02-08 09:45:46

    sex video with animals [url=http://sex-by.ru/]porn video with animals[/url]...

  • Quick Loan

    2018-02-08 08:21:18

    personal loans with bad credit loans bad credit top personal loans [url=https://loansforbadcredit.us.org]loans for bad credit[/url]...

  • Write College Essays

    2018-02-08 07:25:54

    essays persuasive essay homework essays online [url=https://essays.us.com]critical thinking essays[/url]...

  • Jamescat

    2018-02-08 04:46:40

    online payday loans direct lenders same day payday loans online online payday loans direct lenders [url=https://onlinepaydayloansdirectlenders.science]online loans direct lenders[/url] payday loans online direct lenders direct lenders payday loans payday cash advance loan [url=https://paydayloansdirectlenders.stream]cash loans online[/url] free chat rooms free adult chat free chat rooms [url=https://freechatrooms.bid]free chat rooms[/url]...

  • Custom Essay

    2018-02-08 03:26:30

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

  • Bad Credit

    2018-02-08 02:51:30

    online payday loans instant approval payday loans instant approval same day payday loans no credit check [url=https://loansinstantapproval.us.com]loans instant approval[/url]...