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

програми
Задача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-01-04 16:47:31

    tudor homework help illustration essay illustration essay [url=https://illustrationessay.trade]illustration essay[/url] direct lenders payday loans payday loan direct lenders direct lenders payday loans [url=https://paydaylendersdirect.webcam]payday lenders direct[/url] free chat rooms free naked webcam free chat rooms [url=https://freechatrooms.webcam]live free sex chat[/url] amateur webcam girls cam sites cam sites [url=https://camsites.cricket]bbw webcam[/url] best dissertation writing service college essay writer essay corrector [url=https://collegeessaywriter...

  • Assignment Define

    2018-01-04 14:03:01

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

  • Dissertation Online

    2018-01-04 10:12:26

    best college application essays essay argument essay [url=https://essay.us.org]accounting assignment help[/url]...

  • Loans Online

    2018-01-04 08:59:10

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

  • Custom Essays

    2018-01-04 08:47:08

    assignment writing service uk college essays college essay prompts [url=https://collegeessays.us.com]website that writes your essay for you[/url]...

  • Jamescat

    2018-01-04 07:54:42

    best payday loans online payday loan lender best payday loans online [url=https://bestpaydayloans.stream]best payday loans[/url] fast payday loan online payday advance loan easy online payday loans [url=https://easyonlinepaydayloans.bid]no credit check loans[/url] advance payday loans online money lender no credit check direct payday loan lenders [url=https://directpaydayloanlenders.webcam]payday loan direct lenders[/url] college essay help college essay help homework help college [url=https://collegeapplicationessay...

  • A Payday Loan

    2018-01-04 03:56:54

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

  • Payday Loan Online

    2018-01-04 03:33:19

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

  • Jamescat

    2018-01-04 00:31:50

    advance cash payday loan online loans quick loans [url=https://quickloans.trade]quick loans[/url] essay prompts essay prompts dissertation writer [url=https://essayprompts.cricket]mymaths online homework login[/url] easy fast payday loans easy payday loans online direct payday lenders online [url=https://easyloans.webcam]easy fast payday loans[/url] payday advance loans small payday loans best payday loans [url=https://smallpaydayloans.bid]internet payday loans[/url] webcam dildo webcam masturbation webcam dildo [url=https://webcammasturbation...

  • Josephdax

    2018-01-03 23:34:16

    與年幼的孩子的性視頻 [url=https://offshoreleaks.icij.org/stories/kojo-annan]porn sex with children[/url]...