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

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

Коментарi

  • White Paper Writer

    2017-12-20 01:07:56

    college essays custom dissertation writing service do my research paper for me [url=https://collegeessays.us.com]college essay[/url]...

  • Get A Loan

    2017-12-20 00:26:30

    payday payday fast cash loans [url=https://payday.us.com]payday loan online[/url]...

  • Instant Online Loans

    2017-12-19 21:35:50

    payday advance loans cash loans cash advance loan [url=https://cashadvance.us.org]getting a loan[/url]...

  • Online Payday Loan

    2017-12-19 17:51:29

    payday payday payday cash loan [url=https://payday.us.com]payday[/url]...

  • Pay Day Loan

    2017-12-19 17:10:25

    cash advance direct lender loans payday advance [url=https://cashadvance.us.org]cash loans[/url]...

  • Money Loan

    2017-12-19 10:28:36

    payday payday payday [url=https://payday.us.com]payday[/url]...

  • Best Payday Loan

    2017-12-19 09:55:17

    payday loans lenders direct loans loan [url=https://loan.us.org]loans online[/url]...

  • Jamescat

    2017-12-19 07:39:37

    short term loans short term loans for bad credit online loan lenders [url=https://shorttermloans.us.com]personal loan bad credit[/url]...

  • honurdSow

    2017-12-19 02:55:24

    QB Tajh Boyd couldn't be stopped, throwing for 367 yards and having six total touchdowns (five passing and one rushing). Why in the name of all that is good would you draft another back??? It was to evil kid movies like "Dracula" was to vampires. [url=http://www.reutersoe.com/JerseysPaypal/CheapColoradoRockiesJerseys/]Cheap Colorado Rockies Jerseys[/url] fantasy football quarterbacks, nfl 2010 season, fantasy player rankingsFantasy football 2009 is all but over. Most of the best players will be rested next week while their teams prepare for battle in the upcoming playoffs...

  • Speedy Cash

    2017-12-19 02:29:15

    easiest payday loan to get cash advance cash advance [url=https://cashadvance.us.org]cash advance[/url]...