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

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

  • Loans Online

    2018-01-19 04:10:43

    online loans for bad credit online loans for bad credit bad credit loans [url=https://loansforbadcredit.us.org]loans for bad credit[/url]...

  • Direct Lender Loans

    2018-01-19 03:04:43

    faxless payday loans payday loan loan rehabilitation [url=https://paydayloan.us.org]i need a loan with bad credit[/url]...

  • A Payday Loan

    2018-01-19 02:59:41

    cash loans online online payday advance advance cash [url=https://cashadvanceloan.us.com]cash advance loans[/url]...

  • Fastest Payday Loan

    2018-01-19 02:19:41

    personal loans online personal loans online alternatives to payday loans [url=https://personalloansonline.us.org]personal loans unsecured[/url]...

  • Direct Lenders

    2018-01-19 02:18:46

    credit consolidation loans for bad credit paperless payday loans personal loans scam [url=https://loansonline.us.com]best online loans instant approval[/url]...

  • Premium Assignments

    2018-01-19 01:14:00

    essay for me essays essays [url=https://essays.us.com]personal essay for college[/url]...

  • Jamescat

    2018-01-19 00:29:37

    cash advance payday loan online easy payday loan [url=https://fastestpaydayloan.stream]advance payday loans[/url] no credit check lenders only payday loans direct lenders payday lenders direct [url=https://paydayloansdirectlenders.stream]payday express[/url] paper writing writing my paper essay writing [url=https://paperwriting.webcam]paper writing[/url] free online porn cams nude shows free chat rooms [url=https://freechatrooms.bid]free sex video chat[/url] webcam porn live cams webcam porn [url=https://webcampussy...

  • Buy An Essays

    2018-01-18 23:58:59

    homework can you do my homework buy homework solutions [url=https://homeworkhelp.us.com]can you do my homework[/url]...

  • My Thesis

    2018-01-18 23:15:31

    write an essay for me help with college essays writing essays [url=https://essays.us.com]essay writing expert[/url]...

  • Pay Day Loan

    2018-01-18 23:00:58

    loans online no credit check loans with no credit check loans no credit check [url=https://loansnocreditcheck.us.com]personal loans no credit check[/url]...