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

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

  • Payday Loans Online

    2018-01-15 00:15:59

    personal loans with bad credit secure online payday loans personal loans for poor credit [url=https://personalloans.us.org]dollar loan[/url]...

  • Loans Online

    2018-01-14 23:53:01

    personal loans personal loans with bad credit personal loans [url=https://personalloans.us.org]quick payday loans[/url]...

  • Type Writer Paper

    2018-01-14 22:43:32

    research paper research paper short essays [url=https://researchpaper.us.com]do my algebra problem[/url]...

  • Jamescat

    2018-01-14 22:27:50

    direct lenders payday loans online installment loans easy cash payday loan [url=https://easyonlinepaydayloans.bid]easy online payday loans[/url] payday loan direct lender payday loans guaranteed payday loans [url=https://guaranteedpaydayloans.webcam]advance payday loans[/url] buy online essays research papers research papers [url=https://schoolpapers.cricket]research papers[/url] college essay help college essay help abstract research paper [url=https://collegeapplicationessay.bid]help on writing...

  • Direct Lender Loans

    2018-01-14 22:13:03

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

  • Money Loan

    2018-01-14 20:35:31

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

  • Direct Lenders

    2018-01-14 17:22:03

    personal loans installment sale personal loans for bad credit [url=https://personalloans.us.org]personal loans for poor credit[/url]...

  • Loan Cash

    2018-01-14 15:33:53

    loan for bad credit personal loan no credit check low credit loans [url=https://loansnocreditcheck.us.com]loans no credit check[/url]...

  • Cash Advance

    2018-01-14 12:29:28

    instant cash online cash loans no credit check how to get cash [url=https://cashloans.us.com]non payday loans[/url]...

  • Fastest Payday Loan

    2018-01-14 10:44:30

    online loan fast loan online loans online direct [url=https://loansonline.us.com]loans online[/url]...