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

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

  • Sepantor

    2017-07-10 00:55:27

    [url=https://volvopremium.ru/]Обслуживание и ремонт легковых автомобилей Volvo,сервис volvo , автосервис Вольво , volvo сервис, сервис вольво москва, сервис Вольво в Москве ,вольво сервис москва,ремонт вольво москва,техцентр вольво, автосервис volvo , Автосервис Volvo в Москве, обслуживание Вольво, ремонт Volvo, автосервис Volvo Вольво,сервис Volvo , специализированный сервис Вольво , сервис Вольво в Москве,техническое обслуживание автомобилей Вольво, АВТОСЕРВИС ВОЛЬВО – АВТОСЕРВИС VOLVO В МОСКВЕ И МОСКОВСКОЙ ОБЛАСТИ,ремонт Вольво в Москве, автосервис Volvo, автосервис Вольво, сервис Вольво,Volvo сервис[/url] [url=https://volvopremium...

  • Sepantor

    2017-07-10 00:55:15

    [url=https://volvopremium.ru/]Обслуживание и ремонт легковых автомобилей Volvo,сервис volvo , автосервис Вольво , volvo сервис, сервис вольво москва, сервис Вольво в Москве ,вольво сервис москва,ремонт вольво москва,техцентр вольво, автосервис volvo , Автосервис Volvo в Москве, обслуживание Вольво, ремонт Volvo, автосервис Volvo Вольво,сервис Volvo , специализированный сервис Вольво , сервис Вольво в Москве,техническое обслуживание автомобилей Вольво, АВТОСЕРВИС ВОЛЬВО – АВТОСЕРВИС VOLVO В МОСКВЕ И МОСКОВСКОЙ ОБЛАСТИ,ремонт Вольво в Москве, автосервис Volvo, автосервис Вольво, сервис Вольво,Volvo сервис[/url] [url=https://volvopremium...

  • kristigr1

    2017-07-09 20:30:18

    Started unusual snare throw http://photo.lube.sexblog.top/?entry-dania free country teen big breast porn porn movie tricks free porn thunbs clips fetish porn doctor free gorgeous porn movs...

  • JerryFrilS

    2017-07-09 08:47:27

    мамба знакомства [url=http://ero.mr2.space/][img]https://encrypted-tbn2.gstatic.com/images?q=tbn:ANd9GcQSTWY6tGXJsguZUxLzedxJAnTUx73feAxYpw1pRIKkTtWl8tI[/img][/url] К тому же, вашевнимание к ней потом будет вполне объяснимо благодарностью, которую вы испытываете [URL=http://www.nsklove.com]секс знакомства +с женщинами +в сочи[/URL] Если вам этот процессизвестен, вам обеспечено удачное знакомство...

  • BrianSap

    2017-07-09 06:37:37

    [b]Гадкий я 3 скачать #091[/b] [url=http://bit.ly/2sHfwbu][IMG]http://i95.fastpic.ru/big/2017/0705/66/9dc91ec2074619f8a89ebcfa6e5e2766.jpg[/IMG][/url] [url=http://bit.ly/2sHfwbu][b]Смотреть мультфильм Гадкий я 3[/b][/url] [url=http://bit.ly/2sHfwbu][b][color=red]Смотреть мультфильм Гадкий я 3[/color][/b][/url] [url=http://bit.ly/2sHfwbu][b][color=green]Смотреть мультфильм Гадкий я 3[/color][/b][/url] Кеи: Гадкий я 3 трейлер на русском Гадкий я 3 скачать торрент яндекс Гадкий я 3 Гадкий я 3 2017 смотреть...

  • Frankfoex

    2017-07-08 12:29:25

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

  • agrohimusd

    2017-07-08 09:09:02

    Здравствуйте господа! Минеральные удобрения– вещества, имеющие неорганическую природу происхождения. Они традиционно используются в сельском хозяйстве, так как являются более доступными, чем органические, дают быстрый положительный эффект, и имеют широкий спектр действия. Также их гораздо удобнее и дешевле транспортировать. 1)[url=http://agro-himiya.by]аммиачная селитра купить в минске [/url] - Минеральные удобрения купить в Минске можно самовывозом в течении 20 минут, либо c оперативной доставкой...

  • Yulianna Belly Dance Pymn12

    2017-07-08 06:16:20

    http://www.youtube.com/watch?v=sNxdCUVOtVM&t=55s belly dance classes edinburgh belly dance class 94132 top 5 belly dance songs belly dance benefits Top belly dancer at arabic dance, oriental belly dancing is amaizing arabic belly dance. ????? ?????,????? ?????? ??????. Harem music with belly dancer famouse world dance new york by dance+. Egyptian oriental dance popular arabic belly dance, belly dance 2017 top world oriental belly dancing. Shakira belly dance hot dancer harem. Dance style ????? ?????? ??????...

  • DavidWaisp

    2017-07-07 18:41:30

    Последние новости здесь [url=http://www.planetoday.ru/]www.planetoday.ru[/url]...

  • AllenAmogy

    2017-07-07 07:08:30

    http://pravogolosa.net/oproekt http://pravogolosa.net/law http://pravogolosa.net/new http://pravogolosa.net/letter http://pravogolosa.net/rulesandpolic http://pravogolosa.net/manua http://pravogolosa.net/lawyeradvic http://pravogolosa.net/material http://pravogolosa.net/buttoncod http://pravogolosa.net/newswee http://pravogolosa.net/oproek http://pravogolosa.net/la http://pravogolosa.net/ne http://pravogolosa.net/lette http://pravogolosa.net/rulesandpoli http://pravogolosa.net/manu http://pravogolosa...