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

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

  • A Payday Loan

    2018-01-16 00:37:28

    holiday loan payday advances advance payday [url=https://paydayadvance.us.com]advance payday[/url]...

  • Loan Cash

    2018-01-15 23:33:44

    cash loans cash lenders need cash now [url=https://cashloans.us.com]cash loans[/url]...

  • Spotloan

    2018-01-15 14:47:47

    payday loan places online loans unsecured personal loans [url=https://personalloansonline.us.org]cheap personal loans[/url]...

  • Quick Loans

    2018-01-15 07:06:24

    online payday advance advance loan express cash advance [url=https://cashadvanceloan.us.com]express cash advance[/url]...

  • Online Payday Loan

    2018-01-15 06:53:53

    no interest loan personal loan emi calculator advance payday loan [url=https://paydayadvance.us.com]no teletrack faxless payday loans[/url]...

  • Payday Loans

    2018-01-15 06:16:06

    installment loans no credit installment loans for bad credit bad credit installment loans guaranteed [url=https://installmentloans.us.com]installment loans[/url]...

  • Speedy Cash

    2018-01-15 04:40:16

    cash advance loans cash loans online cash advance usa [url=https://cashadvanceloan.us.com]advance cash[/url]...

  • Online Payday Loan

    2018-01-15 03:29:43

    payday advance payday loan online bad credit payday advances [url=https://paydayadvance.us.com]how to get quick money[/url]...

  • Best Payday Loan

    2018-01-15 03:11:13

    loans for bad credit affordable loans loans for bad credit [url=https://loansforbadcredit.us.org]direct payday lenders for bad credit[/url]...

  • Paydayloan

    2018-01-15 03:07:17

    loans for bad credit loans with bad credit no credit check payday loans online [url=https://loansforbadcredit.us.org]loans for bad credit[/url]...