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

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

  • Assignments Help

    2017-11-17 13:13:43

    writing essays for college college essay help writing essays for college [url=https://collegeessay.us.com]college essays[/url]...

  • Fastest Payday Loan

    2017-11-17 11:41:58

    personal loans bad credit personal loans bad credit bad credit payday loans [url=https://badcreditpersonalloans.us.com]bad credit personal loans[/url]...

  • Joecat

    2017-11-17 07:17:11

    unsecured personal loans bad credit ok a loan with bad credit personal loans [url=https://badcreditpersonalloans.us.com]personal loans bad credit[/url]...

  • Money Loan

    2017-11-17 05:45:13

    quick loan for bad credit quick loan calculator quick personal loans [url=https://quickloans.us.com]personal loan fast[/url]...

  • Essay Writing Online

    2017-11-17 04:42:44

    help with my essay college essay prompts buy college essays [url=https://collegeessay.us.com]college essay[/url]...

  • Joecat

    2017-11-17 03:06:25

    help with college essay college essays help buy college essays online [url=https://collegeessay.us.com]essay online help[/url]...

  • Elmertem

    2017-11-15 22:13:09

    [url=https://profi-game.ru/]экипировка для футбола[/url]...

  • Jamescat

    2017-11-15 20:41:57

    payday loans online best online loans direct lenders for bad credit [url=https://onlineloans.us.com/]spotloan[/url]...

  • Raymondrof

    2017-11-15 17:55:25

    Бурение скважин [url=https://www.vizbas.by/]Бурение скважин[/url]...

  • RichardKerty

    2017-11-15 15:23:35

    уместный ресурс http://rcstuff.biz/threads/zakladki-almaty-ust-kamenogorsk-karaganda-astana.277/...