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

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

  • StepanGremi

    2017-06-06 16:26:59

    [url=https://volvopremium.ru/to_volvo] то вольво, то volvo, то автомобилей Вольво, то автомобилей Volvo,Техническое обслуживание Volvo,обслуживание вашего Volvo,обслуживание вашего Вольво,обслуживания автомобилей Вольво, стоимость то вольво,стоимость то xc 60 xc 90 и других моделей Вольво,стоимость работ по вашему автомобилю Volvo,стоимость ТО Volvo,стоимость ТО Volvo,Обслуживание и ремонтлегковых автомобилей Volvo[/url]...

  • CharlesHoups

    2017-06-06 16:19:53

    wh0cd87896 [url=http://zoloft.us.com/]zoloft online[/url] [url=http://amoxicillin24.us.org/]Buy Amoxicillin[/url] [url=http://buy-inderal.com/]inderal without prescription[/url] [url=http://genericcialis.us.org/]cialis sales[/url]...

  • Manuelrer

    2017-06-06 11:29:32

    http://sweetgift.ru/...

  • NathanZed

    2017-06-06 11:29:32

    http://sweetgift.ru/kinder_surprise/...

  • CharlesHoups

    2017-06-06 09:59:25

    wh0cd881794 [url=http://citalopram365.us.com/]Citalopram[/url] [url=http://synthroid24.us.org/]synthroid[/url]...

  • Frankfoex

    2017-06-06 09:50:21

    [url=http://site-agregator.ru][img]http://s45.radikal.ru/i110/1702/c6/e28611ea9003.gif[/img][/url] Хотите повысить ТИЦ сайта не отвлекаясь от других дел? Агрегатор сайтов сделает всё за Вас. С Site agregator вам не нужно быть SEO-специалистом. Теперь продвинуть сайт в ТОП в поисковых системах может любой. Автономное продвижение сайта, интернет магазина. Рост ТИЦ, PR, посещаемости гарантируем. Хочешь повысить продажи? Просто размести здесь свою ссылку http://bit.ly/2doNLIP $$$$*...

  • Alfredpal

    2017-06-06 08:04:50

    wh0cd978075 [url=http://cephalexin247.us.org/]cephalexin online[/url] [url=http://genericcialis24.us.org/]buy cialis online[/url]...

  • Kennethrig

    2017-06-06 07:00:24

    wh0cd34656 [url=http://buycialis247.us.org/]cialis prices[/url] [url=http://viagraprice247.us.org/]viagra pfizer[/url] [url=http://celexa24.us.org/]Celexa[/url]...

  • CharlesHoups

    2017-06-06 06:42:57

    wh0cd773071 [url=http://buyviagraonline24.us.org/]generic viagra[/url] [url=http://diflucan24.us.org/]Diflucan[/url] [url=http://tamoxifen24.us.org/]tamoxifen tablets[/url]...

  • Kennethrig

    2017-06-06 05:31:15

    wh0cd966750 [url=http://levitra365.gdn/]levitra for sale[/url] [url=http://buyrevia7.top/]revia[/url] [url=http://abilify365.top/]abilify[/url] [url=http://buyventolin365.gdn/]ventolin[/url] [url=http://zithromax17.gdn/]zithromax pfizer[/url]...