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

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

Коментарi

  • Online Loans

    2018-01-12 13:09:30

    cash loans loan loan [url=https://loan.us.org]loan[/url]...

  • amica car insurance

    2018-01-12 12:35:44

    car insurance compare auto insurance rates auto insurance [url=https://carinsurance.us.org]compare car insurance quotes[/url]...

  • Jesserom

    2018-01-12 11:16:48

    Новости компьютерного мира тут [url=http://alvarvas.com/]alvarvas.com[/url]...

  • Donaldsotly

    2018-01-12 10:44:05

    Как сообщал , в начале декабря во Французских Альпах в результате схода лавины погибли три туриста. Их тела нашли у подножий гор Дан де Кроль и Гран Сом, подробнее читайте на сайте [url=http://dk-zio.ru]dk-zio.ru[/url]...

  • Money Loan

    2018-01-12 10:38:01

    cash loan payday loans payday loans online [url=https://loan.us.org]loan[/url]...

  • Payday

    2018-01-12 09:32:46

    payday advance payday loans cash advance lenders [url=https://cashadvance.us.org]payday advance online[/url]...

  • Colinaceva

    2018-01-12 09:26:32

    [url=https://alicante-house.ru]новостройки в аликанте[/url]...

  • Brandontig

    2018-01-12 09:25:13

    [url=https://alicante-house.ru]купить недвижимость в Аликанте[/url]...

  • Janecat

    2018-01-12 09:08:30

    short term loans short term loan lenders short term loans [url=https://shorttermloans.us.com]short term loans colorado[/url]...

  • Fastest Payday Loan

    2018-01-12 08:44:31

    payday direct lender payday loans direct lenders no credit check [url=https://payday.us.com]pay day loan[/url]...