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

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

Коментарi

  • Direct Lender Loans

    2018-01-18 06:11:37

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

  • Payday Express

    2018-01-18 04:20:09

    online payday loans no credit check payday loans online payday loans online no credit check [url=https://paydayloansonline.us.org]payday loans no credit check[/url]...

  • Buying Essay

    2018-01-18 03:33:36

    homework help college do your homework college homework help [url=https://homeworkhelp.us.com]home work help[/url]...

  • Direct Lender Loans

    2018-01-18 03:19:04

    payday loans no credit no credit check payday loans instant approval payday loans no credit check same day [url=https://paydayloansonline.us.org]payday loans online[/url]...

  • Paper Writer

    2018-01-18 02:44:38

    research paper buy research papers research essay [url=https://researchessay.us.com]research paper[/url]...

  • Speedycash

    2018-01-18 01:48:45

    online loan loans for christmas online cash advance [url=https://onlineloan.us.com]monthly loan[/url]...

  • A Payday Loan

    2018-01-17 23:57:43

    express payday loan installment loans for bad credit commercial loan rates [url=https://installmentloans.us.com]installment loans[/url]...

  • Personal Loans

    2018-01-17 21:45:16

    personal loans no credit personal loans for bad credit independent payday lenders [url=https://personalloans.us.org]personal loans[/url]...

  • Get A Loan

    2018-01-17 20:40:02

    bad credit personal loans guaranteed approval bad credit personal loans guaranteed approval personal loans for bad credit [url=https://personalloans.us.org]direct lending reviews[/url]...

  • Online Lenders

    2018-01-17 20:15:15

    low cost loans advance cash cash advance loan [url=https://cashadvanceloan.us.com]personal loans bad credit[/url]...