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

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

  • Fastest Payday Loan

    2018-01-21 13:13:17

    fast loans no credit check quick loans no credit check loans no credit check [url=https://loansnocreditcheck.us.com]direct online payday loans[/url]...

  • Loans For Bad Credit

    2018-01-21 09:46:53

    cash advance loans online cash loans no credit check get cash now [url=https://cashloans.us.com]cash loans[/url]...

  • Homework Help Online

    2018-01-21 09:43:00

    cheap essay writing services write my papers homework writing help [url=https://writemypaper.us.com]do my paper[/url]...

  • Payday Express

    2018-01-21 09:22:09

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

  • Pay Day Loans

    2018-01-21 04:17:54

    cash now cash advance loan loan cash [url=https://cashloans.us.com]cash loans[/url]...

  • Write My Essays

    2018-01-21 01:48:22

    write my paper for me write a paper write a paper for me [url=https://writemypaperforme.us.com]write my paper for me[/url]...

  • Direct Lender Loans

    2018-01-21 00:47:12

    payday installment loan online personal loans online loan [url=https://loansonline.us.com]best online loans instant approval[/url]...

  • Cash Loan

    2018-01-20 22:59:18

    online payday loans no credit check fast cash loans direct lenders payday loans no credit [url=https://paydayloansonline.us.org]no interest loan[/url]...

  • Personal Loans

    2018-01-20 19:39:53

    cash now credit loans no credit easy money payday loans [url=https://cashloans.us.com]cash loans[/url]...

  • BarryHax

    2018-01-20 19:21:29

    стоимость ритуальных услуг [url=http://grob-vspb.ru/riutalyne-uslugi1/]цены на ритуальные услуги[/url]...