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

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

  • JustinUnmax

    2017-12-25 10:12:20

    Самые свежие программы здесь [url=http://www.softzatak.ru/]www.softzatak.ru[/url]...

  • Loans Online

    2017-12-25 05:46:49

    payday loan online a payday loan payday loans [url=https://payday.us.com]payday loans[/url]...

  • Homework Charts

    2017-12-25 05:33:21

    essay argument essay essay [url=https://essay.us.org]essay[/url]...

  • Pay Day Loans

    2017-12-25 04:22:01

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

  • School Assignments

    2017-12-25 03:14:44

    paper writing paper writing essay writing [url=https://argumentativeessay.us.com]argumentative essay[/url]...

  • Assignment Helps

    2017-12-25 01:07:26

    argumentative essay argumentative essay essay writing [url=https://argumentativeessay.us.com]argumentative essay[/url]...

  • Direct Lender Loans

    2017-12-24 23:43:43

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

  • auto insurances

    2017-12-24 23:38:39

    compare auto insurance quotes car insurance quotes california united auto insurance [url=https://autoinsurancequotes.us.com]auto insurance quotes[/url]...

  • Essay Buy

    2017-12-24 23:37:06

    argument essay my homework helper argumentative essay [url=https://argumentativeessay.us.com]argument essay[/url]...

  • nationwide

    2017-12-24 23:22:04

    car insurances auto insurance quotes auto insurance quotes [url=https://autoinsurancequotes.us.com]auto insurance quotes[/url]...