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

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

  • Loans For Bad Credit

    2017-10-10 14:51:14

    payday loans online for more info click [url=https://paydayloansonline.us.com/]payday loans online[/url]...

  • Payday Loan Online

    2017-10-10 11:29:13

    bad credit easy payday loan direct payday lenders bad credit [url=https://loansforbadcredit.us.com/]bad credit payday loans[/url]...

  • Payday

    2017-10-10 00:47:14

    payday loans online payday loans online same day no credit check payday loans online reviews [url=https://paydayloansonline.us.com/]Visit Your URL[/url]...

  • Online Lenders

    2017-10-09 23:48:47

    found it for you quick loans payday loan online [url=https://onlineloans.us.com/]https://onlineloans.us.com[/url]...

  • MarvinWem

    2017-10-09 19:10:06

    sidebar [url=http://grandwp.com/]Images Gallery[/url]...

  • Speedy Cash

    2017-10-09 10:39:13

    instant online payday loan payday loan online http://onlineloans.us.com/ [url=https://onlineloans.us.com/]Related Site[/url]...

  • Jamescat

    2017-10-09 09:49:53

    help my essay http://WriteMyEssay.us.com/ write my essay [url=https://writemyessay.us.com]online essay[/url]...

  • Quick Loans

    2017-10-09 09:05:32

    legitimate payday loans online payday loans online instant payday loans online [url=https://paydayloansonline.us.com/]PaydayLoansOnline.us.com[/url]...

  • Felixtew

    2017-10-09 06:20:53

    Writing a medical thesis or dissertation is a task done by almost all postgraduate and master's medical students. Dissertation is derived from the Latin word disserto which means discuss. It is essential to write successful medical papers such as medicine essays and medical thesis papers. There are several reasons as to why students write medicine essays. One of the reasons is to promote enhancement of critical judgment, research skills as well as analytical skills. Moreover, medicine essay writing produce students with the ability to 4evaluate and analyze data critically...

  • Jamescat

    2017-10-08 21:57:21

    online payday loans online payday loans HTTP://ONLINELOANS.US.COM/ [url=https://onlineloans.us.com/]click[/url]...