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

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

  • Jamescat

    2018-02-03 23:17:22

    do my homework for money easy essay help college essay [url=https://scholarshipessay.science]homework help accounting[/url] loans payday advance loan easy payday loan [url=https://fastestpaydayloan.stream]online payday loan[/url] online payday loans for bad credit online payday loans for bad credit bad credit payday loans direct lenders [url=https://onlinepaydayloansforbadcredit.bid]online payday loans for bad credit[/url] need help on homework college essay help me with my maths homework [url=https://collegepaper...

  • Assignment Notebooks

    2018-02-03 22:30:21

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

  • Online Essays

    2018-02-03 21:56:56

    essay rewriter essay writing expert essay writer world [url=https://essaywriter.us.com]essay writer[/url]...

  • Loans

    2018-02-03 20:22:12

    best personal loans easy loans no credit personal loans online [url=https://personalloansonline.us.org]online personal loans[/url]...

  • Online Essay Writers

    2018-02-03 17:53:36

    custom essay writing services reviews cheap essay writing service essay paper writing service [url=https://paperwritingservice.us.com]paper writing service[/url]...

  • Payday Express

    2018-02-03 17:39:28

    cash advance loan cash advance loan usa loan [url=https://cashadvanceloan.us.com]instant approval loans[/url]...

  • Assignment Notebooks

    2018-02-03 15:09:35

    college paper writing service college paper writing service best college paper writing service [url=https://paperwritingservice.us.com]best college paper writing service[/url]...

  • Buy Cheap Essay

    2018-02-03 13:52:41

    writing essay essays paper essay writing [url=https://essaywriting.us.com]i need someone to write my essay[/url]...

  • Buy Essay

    2018-02-03 11:42:23

    easy ways to write an essay college essay promps writing an argumentative essay [url=https://argumentessay.us.com]argument essay[/url]...

  • Essay Writing Tip

    2018-02-03 10:52:49

    fit college essay conclusion for a persuasive essay writing essays [url=https://essays.us.com]writing essays[/url]...