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

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

Коментарi

  • Jamescat

    2017-12-22 02:42:34

    personal loans with bad credit payday loans for bad credit bad credit payday loans [url=https://badcreditpersonalloans.us.com]personal loan online application[/url]...

  • Get A Loan

    2017-12-22 02:36:59

    cash loan faxless payday loans payday loan [url=https://loan.us.org]loans with no credit check[/url]...

  • Jamescat

    2017-12-21 22:45:31

    college essay online college admission essay help college essays [url=https://collegeessay.us.com]college admissions essay help[/url]...

  • Miguelwearf

    2017-12-21 21:16:23

    элитные...

  • Briankes

    2017-12-21 21:16:20

    friv porn sex with animals [url=http://www.friv-2017.com/]gay porn[/url] http://www.friv-2017.com/...

  • Jamescat

    2017-12-21 20:01:21

    fast personal loans instant payday loan short term loans for bad credit [url=https://shorttermloans.us.com]cashloans[/url]...

  • Payday Loans Online

    2017-12-21 14:02:41

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

  • Direct Lender Loans

    2017-12-21 08:45:27

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

  • Speedycash

    2017-12-21 03:10:19

    cash advance cash advance cash advance [url=https://cashadvance.us.org]cash advance[/url]...

  • rtgySow

    2017-12-21 02:41:59

    fantasy player rankings, nfl football, 2011 nfl draft, fantasy football week 3Drew Brees leads a New Orleans Saints team that has struggled with consistency. The Saints will take on the home town Arizona Cardinals October 10th and this game may be out of hand by the half. The New Orleans Saints should enjoy taking on a team they can finally wallop after failing to cover their first four games. [url=http://www.checkdomain.nu/]comprar air max 90 baratas[/url] nfl scores, nfl scheduleA battle between two NFC West Division rivals, the Arizona Cardinals and St Louis Rams, will feature two new quarterbacks September 12th...