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

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

Коментарi

  • Jamescat

    2017-11-10 08:14:33

    help write my essay buy essay online cheap order essay paper [url=https://buyessays.us.com]websites that write essays[/url]...

  • Jamescat

    2017-11-10 01:56:06

    quick loans no credit check quick easy payday loans quick loans [url=https://quickloans.us.com]quick loans online[/url]...

  • Payday Loan Online

    2017-11-10 00:09:48

    payday loans bad credit personal loans bad credit payday loans for bad credit uk [url=https://badcreditpersonalloans.us.com]payday loans bad credit[/url]...

  • Paydayloan

    2017-11-09 22:34:48

    personal loans online rapid loans short term loans online [url=https://shorttermloans.us.com]short term payday loans[/url]...

  • Brentson

    2017-11-09 20:52:09

    дизельные силовые установки [url=http://safzem.ru/]блочно модульное оборудование для нефтегазового сектора[/url]...

  • Cash Loan

    2017-11-09 18:03:30

    personal loans bad credit payday loans for bad credit bad credit personal loans utah [url=https://badcreditpersonalloans.us.com]lowest interest personal loan[/url]...

  • Jamescat

    2017-11-09 15:49:31

    write my research paper write my paper write my research paper [url=https://writemyresearchpaper.science]utexas online homework[/url] free adult chat free sex cam chat free adult chat [url=https://freeadultvideochat.stream]free sex cams[/url] easy approval payday loans easy fast payday loans easy fast payday loans [url=https://easyfastpaydayloans.loan]easy payday loans[/url] easy approval payday loans easy approval payday loans easy approval payday loans [url=https://easyapprovalpaydayloans.science]best...

  • Paper Writer Free

    2017-11-09 15:17:51

    buy an essay for college essay buy buy essay [url=https://buyessays.us.com]essay to buy[/url]...

  • Joecat

    2017-11-09 14:20:58

    buy an essay online cheap buy an essay online cheap essay buying [url=https://buyessays.us.com]help writing college essays[/url]...

  • Online Essay Writers

    2017-11-09 12:54:44

    writing an essay for college admission buy college essays college essay [url=https://collegeessay.us.com]writing essays for college[/url]...