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

програми
Задача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-24 15:42:13

    money loan money loan payday loans with no credit check [url=https://moneyloan.trade]payday loan[/url] direct lenders no credit check direct lenders of loans online loans direct lenders [url=https://onlineloansdirectlenders.stream]direct online lenders[/url] payday loans lenders direct lenders immediate payment loans direct payday loan lenders [url=https://badcreditpaydayloansdirectlenders.cricket]bad credit payday loans direct lenders[/url] guaranteed payday loans payday loans online guaranteed payday loans [url=https://guaranteedpaydayloans...

  • Fastest Payday Loan

    2018-01-24 11:36:16

    no credit check payday loans instant approval payday loans online payday loans no credit [url=https://paydayloansonline.us.org]payday loans online[/url]...

  • Janecat

    2018-01-24 11:06:02

    payday express payday loans payday loans [url=https://paydayloans.us.org]for more info[/url]...

  • Janecat

    2018-01-24 10:45:44

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

  • My Essay Writing

    2018-01-24 06:54:04

    write an argumentative essay argument essay academic writing essays [url=https://argumentessay.us.com]essay writing styles[/url]...

  • Dog Ate Homework

    2018-01-24 06:46:09

    good argumentative essay argumentative essays argument essay [url=https://argumentessay.us.com]easy argumentative essay[/url]...

  • Fastest Payday Loan

    2018-01-24 05:14:11

    personal loans with bad credit payday loans cash advance unsecured loans for bad credit [url=https://loansforbadcredit.us.org]pay advance[/url]...

  • Janecat

    2018-01-24 04:33:43

    best cash loans online payday loan online payday loans online [url=https://onlineloans.us.com]speedycash[/url]...

  • Write Assignment

    2018-01-24 03:48:38

    term paper help write a term paper term paper [url=https://termpaper.us.com]write a term paper[/url]...

  • Personal Loans

    2018-01-24 01:32:15

    online loan payday calendar personal loan online [url=https://onlineloan.us.com]loan service[/url]...