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

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

  • Online Lenders

    2018-01-18 17:07:42

    loans online loans online direct payday loans online [url=https://loansonline.us.com]western union loan[/url]...

  • Get A Loan

    2018-01-18 16:22:31

    loanme installment loans no credit check bad credit installment loans guaranteed [url=https://installmentloans.us.com]installment loans[/url]...

  • Essay Writing Online

    2018-01-18 15:43:41

    essay writing services essay writing service proofreading service [url=https://essaywritingservices.us.org]essay writing services[/url]...

  • Payday Express

    2018-01-18 15:06:23

    guarantee loan personal loans bad credit loans personal [url=https://personalloans.us.org]i need a loan[/url]...

  • Speedycash

    2018-01-18 15:00:30

    advance america cash advance payday loans sacramento advance payday loan [url=https://paydayadvance.us.com]fast cash advance[/url]...

  • A Payday Loan

    2018-01-18 14:45:39

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

  • Jamescat

    2018-01-18 14:14:28

    small payday loans a payday loan direct online lenders [url=https://fastestpaydayloan.bid]payday loan online[/url] sex chat online show girls sex chat [url=https://sexchat.cricket]sluts online[/url] free webcam sex free sex webcam free sex webcam [url=https://freesexwebcam.webcam]free webcam sex[/url] payday loans direct lenders payday loan direct lenders paydayloans [url=https://paydayloansdirectlenders.stream]payday loans direct lenders[/url] fast online payday loans guaranteed payday loans loan cash [url=https://easyonlinepaydayloans...

  • Payday

    2018-01-18 14:10:10

    cash loans online credit loans no credit check cash loans online [url=https://cashadvanceloan.us.com]cash advance loan[/url]...

  • Write My Essays

    2018-01-18 13:51:52

    research essay college essay tutors research essay [url=https://researchessay.us.com]research essay[/url]...

  • Homework Now.Com

    2018-01-18 13:33:47

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