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

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

Коментарi

  • NormanCef

    2017-06-08 01:57:56

    кофе кофе кофе кофе кофе кофе кофе кофе кофе кофе...

  • Michaelkeync

    2017-06-08 00:17:28

    славный сайт https://kurs.expert/ru/obmennik/m-obmen-ru/feedbacks.html...

  • Robertfub

    2017-06-07 22:59:59

    кофе кофе кофе...

  • RobertMaymn

    2017-06-07 22:59:58

    кофе кофе кофе...

  • Kerryphoto

    2017-06-07 19:09:21

    хорошенький веб ресурс http://porno-vide0.org/kat.php?tag=german...

  • franciscook1

    2017-06-07 16:18:23

    Hi new website http://amatuer.only.sexblog.top/?entry-alex most popular porn scene young milf doing homemade porn black college teens porn tube hd free manga porn movies braiullian porn...

  • Matthewdus

    2017-06-07 09:45:04

    http://sweetgift.ru/buketyi-na-vyipusknoj/...

  • Aviawanty

    2017-06-07 05:31:06

    aviabiletzakazgostinic.ru - Авиабилеты, путешествия и гостиницы! Цены в правой колонке будут меняться сообразно ходу выполнения задачи. Самая низкая москва кишинев самолет расписание цена цена отразиться в поле «Лучшие цены» и справа. Скайсканер неоплачиваемый поисковик дешевых авиабилетов онлайн. Сравните тысячи рейсов и выбирайте самое выгодное предложение. Ищите выгодные даты через альманах низких цен. Лучшая курс на авиабилеты бывает изза 2 месяца (50-60 дней) накануне отправления. Только понять для какие даты перехватить дешевые авиабилеты? Подберите выгодный перелет с через календаря низких цен...

  • SeyKn

    2017-06-07 02:39:51

    Чаще всего работа модуля основана на методах корреляционного трекинга. При использовании корреляционных методов программа работает с определенной областью текущего кадра – в данном случае с областью, в которой присутствует изображение сотрудника. Проводится выявление характерных признаков и особенностей объекта: градиентов, цветовых характеристик, особых точек (углов, расстояний), вычисляется дескриптор (набор характерных признаков объекта). Для каждого нового кадра, приходящего с камеры, корреляционный...

  • Kennethrig

    2017-06-06 16:31:09

    wh0cd360826 [url=http://lipitor24.us.org/]lipitor[/url]...