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

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

  • Jamescat

    2018-01-09 07:08:31

    research essay term paper high school geometry homework help [url=https://researchpaperproposal.trade]do my paper[/url] quick loans best cash loans online easy loans [url=https://easyloans.webcam]quick loans no credit check[/url] payday loans online no credit check payday loans instant approval loan [url=https://instantonlinepaydayloan.cricket]instant online payday loan[/url] best payday loans online best payday loans online best payday loans [url=https://bestpaydayloans.stream]best payday loans online[/url] small payday loans best payday loans payday loans online direct lenders [url=https://smallpaydayloans...

  • Homework Research

    2018-01-09 01:57:02

    holt mcdougal homework help homework hotline online argumentative essay [url=https://argumentativeessay.us.com]literature review writers[/url]...

  • Direct Lenders

    2018-01-09 01:17:38

    easy payday loans direct lenders no credit check cash advance loan [url=https://cashadvance.us.org]payday advance[/url]...

  • Jamescat

    2018-01-08 23:02:39

    how to write college essay buy an essay illustration essay [url=https://illustrationessay.trade]illustration essay[/url] essay prompts writing an introduction for a research paper research essay [url=https://essayprompts.cricket]person doing homework[/url] instant online payday loan fastest payday loan payday advance no credit check [url=https://instantonlinepaydayloan.cricket]no credit check loans[/url]...

  • TerryDut

    2018-01-08 22:26:43

    заработать деньги Заказав карту "DEPO120" Вы не только получаете кэшбэк за свои покупки и покупки друзей в любимых магазинах, и в тех, в которые ходите за покупками каждый день. [url=https://depo120.com] как заработать +в интернете [/url]...

  • Michaelfrefs

    2018-01-08 22:21:16

    работа удаленный Заказав карту "DEPO120" Вы не только получаете кэшбэк за свои покупки и покупки друзей в любимых магазинах, и в тех, в которые ходите за покупками каждый день. [url=https://depo120.com] онлайн кэшбэк [/url]...

  • Jamescat

    2018-01-08 21:41:45

    quick loans payday loans online payday loan lenders [url=https://quickloans.trade]loans with no credit check[/url] illustration essay buy an essay homework help science [url=https://illustrationessay.trade]essay corrector[/url] quick loans 100 approval online pay day loans quick loans 100 approval [url=https://quickloans100approval.stream]no credit check emergency loans[/url] payday advance best online loans advance payday loans [url=https://advancepaydayloans.cricket]advance payday loans[/url] hot porno show free sex chat chat sex [url=https://chatsex...

  • My Homework Help

    2018-01-08 16:45:55

    argumentative essay argumentative essays argumentative essays [url=https://argumentativeessay.us.com]write a college essay[/url]...

  • Timothywag

    2018-01-08 12:45:00

    интернет деньги заработать Вам предоставляется возможность пользования кредитной линией. Без процентов за пользование и без срока пользования кредитом (займом). Абонентская плата составляет всего 3 доллара в месяц и не зависит от кредитного лимита. [url=https://depo120.com/card] карта лимит [/url]...

  • French Homework

    2018-01-08 06:33:54

    library homework help paper writing service research paper [url=https://researchpaper.us.com]buying essays online safe[/url]...