Реферат: Массивы в языках Pascal и Basic
Министерство образования РФ
Средняя школа № 4
РЕФЕРАТпо информатике
Тема: «Массивы в языках Pascalи Basic»
Выполнила:
ученица 10 «А» класса
Рудых Елена
Преподаватель:
Иркутск, 2002
С понятием «массив» приходится сталкиваться при решениинаучно-технических и экономических задач обработки совокупностей <span Arial CYR",«sans-serif»">большогоколичества значений.
<span Arial CYR",«sans-serif»">Массив — это множество однотипныхэлементов, объединённых общим
<span Arial CYR",«sans-serif»">именем и занимающих в компьютере определённую область памяти.
<span Arial CYR",«sans-serif»">Количество элементов в массиве всегда конечно.
<span Arial CYR",«sans-serif»;background:#A0FFFF">В
<span Arial CYR",«sans-serif»"> общемслучае массив — это структурированный тип данных, состоя-<span Arial CYR",«sans-serif»">щий из фиксированного числаэлементов, имеющих один и тот же тип.
<span Arial CYR",«sans-serif»">Название регулярный тип (или ряды)массивы получили за то, что в
<span Arial CYR",«sans-serif»">них объединены однотипные(логически однородные) элементы, упоря-
<span Arial CYR",«sans-serif»">доченные (урегулированные) поиндексам, определяющим положение
<span Arial CYR",«sans-serif»">каждого элемента в массиве.
<span Arial CYR",«sans-serif»;background:#A0FFFF">В
<span Arial CYR",«sans-serif»">качестве элементов массива можно использовать любой тип дан-<span Arial CYR",«sans-serif»">ных, поэтому вполне правомерносуществование массивов записей,
<span Arial CYR",«sans-serif»">массивов указателей, массивовстрок, массивов массивов и т.д.
<span Arial CYR",«sans-serif»">Элементами массива могут бытьданные любого типа, включая струк-
<span Arial CYR",«sans-serif»">турированные.
<span Arial CYR",«sans-serif»">Тип элементов массива называетсябазовым. Особенностью языка
<span Arial CYR",«sans-serif»">Паскаль является то, что числоэлементов массива фиксируется при
<span Arial CYR",«sans-serif»">описании и в процессе выполнения программы неменяется.
<span Arial CYR",«sans-serif»">Элементы, образующие массив,упорядочены таким образом, что каж-
<span Arial CYR",«sans-serif»">дому элементу соответствуетсовокупность номеров (индексов), оп-
<span Arial CYR",«sans-serif»">ределяющих его местоположение в общей последовательности. Доступ
<span Arial CYR",«sans-serif»">к каждому отдельному элементуосуществляется путем индексирования
<span Arial CYR",«sans-serif»">элементов массива. Индексыпредставляют собой выражения любого
<span Arial CYR",«sans-serif»">скалярного типа (чаще целого),кроме вещественного.
<span Arial CYR",«sans-serif»">Тип индекса определяет границыизменения значений индекса. Для
<span Arial CYR",«sans-serif»">описания массива предназначенословосочетание array of (массив из).
<span Arial CYR",«sans-serif»">
Одномерные массивы
<span Arial CYR",«sans-serif»">Массивом называется совокупностьданных, выполняющих аналогичные
<span Arial CYR",«sans-serif»">функции, и обозначаемая однимименем. Если за каждым элементом
<span Arial CYR",«sans-serif»">массива закреплен только один егопорядковый номер, то такой мас-
<span Arial CYR",«sans-serif»">сив называется линейным, илиодномерным.
<span Arial CYR",«sans-serif»">
Массив в Бейсике
<span Arial CYR",«sans-serif»">Описывать массив DIM A(N) — этозначит предоставить
<span Arial CYR",«sans-serif»">свободных ячеек в памяти ЭВМ для массива с именем А.
<span Arial CYR",«sans-serif»">Если описание массива отсутствует,то под одномерный
<span Arial CYR",«sans-serif»">массив выделяется 10 ячеек памяти.
<span Arial CYR",«sans-serif»">Каждый элемент массива в общем виде описывается как А(I), где
<span Arial CYR",«sans-serif»">А — имя массива,
<span Arial CYR",«sans-serif»">I — номер или индекс массива(0<=I<= N, но практически
<span Arial CYR",«sans-serif»">употребляется 1<=I<=N)
<span Arial CYR",«sans-serif»">A(I) — значение элемента массива.
<span Arial CYR",«sans-serif»">Массив в Паскале
<span Arial CYR",«sans-serif»"><имя массива>:= array<количество элементов> of <тип переменной>;
<span Arial CYR",«sans-serif»">Каждый элемент массива в общем виде описывается как А[I], где
<span Arial CYR",«sans-serif»">А — имя массива,
<span Arial CYR",«sans-serif»">I — номер или индекс массива(0<=I<=N, но практически
<span Arial CYR",«sans-serif»">употребляется 1<=I<=N)
<span Arial CYR",«sans-serif»">A[I] — значение элемента массива.
<span Arial CYR",«sans-serif»">
<span Arial CYR",«sans-serif»">Действия над массивами
<span Arial CYR",«sans-serif»">Для работы с массивом как единымцелым используется идентифика-
<span Arial CYR",«sans-serif»">тор массива без указания индекса в квадратных скобках. Массив мо-
<span Arial CYR",«sans-serif»">жет участвовать только в операциях отношения «равно»,«не равно»
<span Arial CYR",«sans-serif»">и воператоре присваивания. Массивы,участвующие в этих действи-
<span Arial CYR",«sans-serif»">ях, должны быть идентичны поструктуре, т. е. иметь одинаковые
<span Arial CYR",«sans-serif»">типы индексов и одинаковые типыкомпонентов.
<span Arial CYR",«sans-serif»">Например, если массивы А и В описаны как
<span Arial CYR",«sans-serif»">var А, В: array[1..20] of real; то применение к ним допустимых
<span Arial CYR",«sans-serif»">операций даст следующий результат:
<span Arial CYR",«sans-serif»">
<span Arial CYR",«sans-serif»">Выражение Результат
<span Arial CYR",«sans-serif»">
<span Arial CYR",«sans-serif»">А=ВTrue, если значение каждого элемента массива А равно
<span Arial CYR",«sans-serif»">соответствующему значению элементамассива В
<span Arial CYR",«sans-serif»">
<span Arial CYR",«sans-serif»">А<>В True, если хотя бы одно значениеэлемента массива А
<span Arial CYR",«sans-serif»">не равно значению соответствующегоэлемента массива В
<span Arial CYR",«sans-serif»">
<span Arial CYR",«sans-serif»">А:=В Все значения элементов массива В присваиваются соответ-
<span Arial CYR",«sans-serif»">ствующим элементам массива А.Значения элементов
<span Arial CYR",«sans-serif»">массива В остаются неизменны.
<span Arial CYR",«sans-serif»">
Действия над элементами массива
<span Arial CYR",«sans-serif»">После объявления массива каждыйего элемент можно обработать,
<span Arial CYR",«sans-serif»">указав идентификатор (имя) массиваи индекс элемента в квадратных
<span Arial CYR",«sans-serif»">скобках. Например, запись Mas[2],VectorZ[10] позволяет обратить-
<span Arial CYR",«sans-serif»">ся ко второму элементу массива Masи десятому элементу массива
<span Arial CYR",«sans-serif»">VectorZ.
<span Arial CYR",«sans-serif»">При работе с двумерным массивомуказываются два индекса, с
<span Arial CYR",«sans-serif»">n-мерным массивом — n индексов.Например, запись MatrU[4,4] дела-
<span Arial CYR",«sans-serif»">ет доступным для обработкизначение элемента, находящегося вчет-
<span Arial CYR",«sans-serif»">вертой строке четвертого столбцамассива MatrU.
<span Arial CYR",«sans-serif»">Индексированные элементы массиваназываются индексированными пе-
<span Arial CYR",«sans-serif»">ременными и могут бытьиспользованы так же, как и простые пере-
<span Arial CYR",«sans-serif»">менные. Например, они могутнаходиться в выражениях в качестве
<span Arial CYR",«sans-serif»">операндов, использоваться в операторах for, while, repeat, вхо-
<span Arial CYR",«sans-serif»">дить в качестве параметров воператоры Read, Readln, Write, Wri-
<span Arial CYR",«sans-serif»">teln; им можно присваивать любыезначения, соответствующие их ти-
<span Arial CYR",«sans-serif»">пу.
<span Arial CYR",«sans-serif»">
Алгоритмы сортировки одномерных массивов
<span Arial CYR",«sans-serif»">Сортировка — один из наиболеераспространённых процессов совре-
<span Arial CYR",«sans-serif»">менной обработки данных. Сортировкойназывается распределение
<span Arial CYR",«sans-serif»">элементов массива в соответствии с определёнными правилами.Нап-
<span Arial CYR",«sans-serif»">ример, сортировка массива повозрастанию или убыванию его элемен-
<span Arial CYR",«sans-serif»">тов.
Обменная сортировка (метод «пузырька»).
<span Arial CYR",«sans-serif»">Алгоритм начинается со сравнения1-го и 2-го элементов массива.
<span Arial CYR",«sans-serif»">Если 2-й элемент меньше 1-го, тоони меняются местами. Этот про-
<span Arial CYR",«sans-serif»">цесс повторяется для каждой парысоседних элементов массива, пока
<span Arial CYR",«sans-serif»">все N элементов не будутобработаны. За один «проход» массива са-
<span Arial CYR",«sans-serif»">мый большой элемент встанет настаршее (N-е) место. Далее алго-
<span Arial CYR",«sans-serif»">ритм повторяется, причем на р-м«проходе» первые (N-p) элементов
<span Arial CYR",«sans-serif»">сравниваются со своими правымисоседями. Если на очередном «про-
<span Arial CYR»,«sans-serif»">ходе" перестановок не было,то алгоритм свою работу закончил. Та-
<span Arial CYR",«sans-serif»">ким образом, самые«легкие» элементы впроцессе исполнения алго-
<span Arial CYR",«sans-serif»">ритма постепенно«всплывают».
<span Arial CYR",«sans-serif»">
Сортировка вставками.
<span Arial CYR",«sans-serif»">Вначале упорядочиваются два первыхэлемента массива. Они образу-
<span Arial CYR",«sans-serif»">ют начальное упорядоченноемножество S. Далее на каждом шаге бе-
<span Arial CYR",«sans-serif»">рется следующий по порядку элементи вставляется в уже упорядо-
<span Arial CYR",«sans-serif»">ченное множество S так, чтобыслева от него все элементы были не
<span Arial CYR",«sans-serif»">больше, а справа — не меньшеобрабатываемого. Место для вставки
<span Arial CYR",«sans-serif»">текущего элемента в упорядоченное множество S ищетсяметодом де-
<span Arial CYR",«sans-serif»">ления пополам. Алгоритм сортировкизаканчивает свою работу, когда
<span Arial CYR",«sans-serif»">элемент, стоящий на N-м месте,будет обработан. (Именно таким об-
<span Arial CYR",«sans-serif»">разом игроки в бридж обычно упорядочивают свои карты).
<span Arial CYR",«sans-serif»">
Сортировка выбором.
<span Arial CYR",«sans-serif»">Находится наибольший элемент в массиве из N элементов (пусть он
<span Arial CYR",«sans-serif»">имеет номер р) и меняется местамис элементом, стоящим на N-м
<span Arial CYR",«sans-serif»">месте, при условии, чтоN<>p. Из оставшихся (N-1) элементов снова
<span Arial CYR",«sans-serif»">выделяется наибольший и меняетсяместами с элементом, стоящим на
<span Arial CYR",«sans-serif»">(N-1)-м месте и т. д. Алгоритмзаканчивает свою работу, когда
<span Arial CYR",«sans-serif»">элементы, стоящие на 1-м и 2-мместах в массиве, будутупорядоче-
<span Arial CYR",«sans-serif»">ны (для этого понадобится N-1«проход» алгоритма). Аналогично
<span Arial CYR",«sans-serif»">данный алгоритм можно применять ик наименьшим элементам.
<span Arial CYR",«sans-serif»">
Двумерные массивы
<span Arial CYR",«sans-serif»">Двумерным называется массив,элемент которого зависит от его
<span Arial CYR",«sans-serif»">местоположения в строке и в столбце. Вобщем виде элемент матрицы
<span Arial CYR",«sans-serif»">обозначается как A(I,J), где А — имя массива,
<span Arial CYR",«sans-serif»">I — индекс (номер) строки,
<span Arial CYR",«sans-serif»">J — индекс (номер) столбца.
<span Arial CYR",«sans-serif»">
Описание матрицы на языке Бейсик
<span Arial CYR",«sans-serif»">DIM A(I,J) — описать матрицу(двумерный массив) это значит пре-
<span Arial CYR",«sans-serif»">доставить свободные ячейки в памяти ЭВМ для элементов данной мат-
<span Arial CYR",«sans-serif»">рицы. В памяти ЭВМ элементы матрицы располагаются по строкам, по-
<span Arial CYR",«sans-serif»">этому индекс строки изменяетсямедленнее, чем индекс столбца.
<span Arial CYR",«sans-serif»">Прямоугольной называется матрица, в которой количество строк не
<span Arial CYR",«sans-serif»">равно количеству столбцов.
<span Arial CYR",«sans-serif»">Квадратной называется матрица, в которой количество строк равно
<span Arial CYR",«sans-serif»">количеству столбцов.
<span Arial CYR",«sans-serif»">
Описание матрицы на языке Паскаль
<span Arial CYR",«sans-serif»">Матрицу можно задать двумяспособами:
<span Arial CYR",«sans-serif»">
<span Arial CYR",«sans-serif»">I. <имя матрицы>: array<количество строк> of array <количество
столбцов> of <типпеременной>;<span Arial CYR",«sans-serif»">
<span Arial CYR",«sans-serif»">II. <имя матрицы>: array<количество строк >,<количество столб-
цов> оf <типпеременной>].<span Arial CYR",«sans-serif»">
Соотношение индексов вквадратной матрице
<span Arial CYR",«sans-serif»">I=J элементы матрицы расположенына главной
<span Arial CYR",«sans-serif»">диагонали
<span Arial CYR",«sans-serif»">I<J элементы матрицырасположены над главной
<span Arial CYR",«sans-serif»">диагональю
<span Arial CYR",«sans-serif»">I>J элементы матрицырасположены под главной
<span Arial CYR",«sans-serif»">диагональю
<span Arial CYR",«sans-serif»">I+J=N+I элементы матрицырасположены на побочной
<span Arial CYR",«sans-serif»">диагонали (N — количество строкили
<span Arial CYR",«sans-serif»">столбцов в квадратной матрице)
<span Arial CYR",«sans-serif»">I+J<N+I элементы матрицырасположены над побочной
<span Arial CYR",«sans-serif»">диагональю
<span Arial CYR",«sans-serif»">I+J>N+I элементы матрицырасположены под побочной
<span Arial CYR",«sans-serif»">диагональю.
<span Arial CYR",«sans-serif»">
<span Arial CYR",«sans-serif»">Ниже приведены примеры задач смассивами на языке Turbo Pascal.
<span Arial CYR",«sans-serif»">
<span Arial CYR",«sans-serif»">Пример 1. Ввод значений элементовмассива с помощью генератора
<span Arial CYR",«sans-serif»">случайных чисел и вывод их в строчку.
<span Arial CYR",«sans-serif»">
<span Arial CYR",«sans-serif»">Примечание:
<span Arial CYR",«sans-serif»">Для использования случайных чисел в TP используются операторы
<span Arial CYR",«sans-serif»">random:real — генерирует случайныечисла в диапазоне 0...0.99.
<span Arial CYR",«sans-serif»">random(i:word):word — генерируетслучайные числа в диапазоне
<span Arial CYR",«sans-serif»">0...1.
<span Arial CYR",«sans-serif»">randomize — изменение базыгенератора случайных чисел.
<span Arial CYR",«sans-serif»">
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">programmas1;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">var
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">a: array[1..10] of integer;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">i:integer;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">begin
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">randomize;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for i:=1to 10 do
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">begin
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">a[i]:=random(20);
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">write('a(',i, ')=', a[i], ' ')
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">end;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">readln
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">end.
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">
<span Arial CYR",«sans-serif»">Пример 2. Составить программузаполнения одномерного массива, так
<span Arial CYR",«sans-serif»">чтобы
<span Arial CYR",«sans-serif»; mso-ansi-language:EN-US"> <span Arial CYR",«sans-serif»">его<span Arial CYR",«sans-serif»; mso-ansi-language:EN-US"> i-<span Arial CYR",«sans-serif»">ый<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US"> <span Arial CYR",«sans-serif»">элемент<span Arial CYR",«sans-serif»; mso-ansi-language:EN-US"> <span Arial CYR",«sans-serif»">был<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US"> <span Arial CYR",«sans-serif»">равен<span Arial CYR",«sans-serif»; mso-ansi-language:EN-US"> a[i]=(i*i+1)/sin(i).<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">programmas2;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">var a:array [1..10] of real;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">i:integer;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">begin
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for i:=1to 10 do
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">begin
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">a[i]:=(i*i+1)/sin(i);
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">writeln('a(',i, ')=', a[i], ' ');
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">end;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">readln
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">end.
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">
<span Arial CYR",«sans-serif»">Пример 3. Составить программуопределения количества элементов
<span Arial CYR",«sans-serif»">одномерного массива, значениеэлементов которых меньше
<span Arial CYR",«sans-serif»">заданного действительного числа t.
<span Arial CYR",«sans-serif»">
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">programmas3;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">var a:array [1..10] of real;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">i,k:integer; t:real;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">begin
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">write('
<span Arial CYR",«sans-serif»">Введите<span Arial CYR",«sans-serif»; mso-ansi-language:EN-US"> <span Arial CYR",«sans-serif»">число<span Arial CYR",«sans-serif»; mso-ansi-language:EN-US"> t=');<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">read(t);
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">k:=0;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for i:=1to 10 do
<span Arial CYR",«sans-serif»">begin
<span Arial CYR",«sans-serif»">write('Введите значение элементаa(', i, ') = ');
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">readln(a[i]);
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">ifa[i]<t then k:=k+1
<span Arial CYR",«sans-serif»">end;
<span Arial CYR",«sans-serif»">writeln('Ответ: Количествоэлементов, меньших заданного числа t,');
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">writeln('
<span Arial CYR",«sans-serif»">равно<span Arial CYR",«sans-serif»; mso-ansi-language:EN-US"> k=',k);<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">readln
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">end.
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">
<span Arial CYR",«sans-serif»">Пример 4. Нахождение средизначений элементов, находящихся на
<span Arial CYR",«sans-serif»">главной диагонали матрицы,наибольшего и наименьшего.
<span Arial CYR",«sans-serif»">
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">programmas4;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">var
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">a:array[1..10,1..10] of integer;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">i,j,max,min:integer;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">begin
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for i:=1to 10 do
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for j:=1to 10 do
<span Arial CYR",«sans-serif»">begin
<span Arial CYR",«sans-serif»">write('Введите значение элементаматрицы = ');
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">readln(a[i,j])
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">end;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">max:=a[1,1];
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">min:=a[1,1];
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for i:=1to 10 do
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">begin
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">ifa[i,i]>max
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">then
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">max:=a[i,i];
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">ifa[i,i]<min
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">then
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">min:=a[i,i]
<span Arial CYR",«sans-serif»">end;
<span Arial CYR",«sans-serif»">writeln('Наибольшее значение = ', max);
<span Arial CYR",«sans-serif»">writeln('Наименьшее значение = ',min);
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">readln
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">end
<span Arial CYR",«sans-serif»">.<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">
<span Arial CYR",«sans-serif»">Пример 5. Сортировка массива повозрастанию.
<span Arial CYR",«sans-serif»">
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">programSortingMax;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">vari,j:integer;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">r,q:real;
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">x:array[1..20] of real;
<span Arial CYR",«sans-serif»">begin
<span Arial CYR",«sans-serif»">writeln('Ведите массив, cостоящийиз 20 чисел:');
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for i:=1to 20 do read(x[i]);
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for i:=1to 19 do
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for j:=i+1to 20 do
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">ifx[i]>=x[j] then
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">begin
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">r:=x[i];x[i]:=x[j]; x[j]:=r
<span Arial CYR",«sans-serif»">end;
<span Arial CYR",«sans-serif»">writeln('Сортировка массива повозрастанию произведена:');
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">for i:=1to 20 do writeln(x[i]);
<span Arial CYR",«sans-serif»">writeln('Для выхода введите любоечисло.');
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">readln(q);
<span Arial CYR",«sans-serif»;mso-ansi-language:EN-US">end.
<span Arial CYR",«sans-serif»"><span Arial CYR",«sans-serif»">
<span Arial CYR",«sans-serif»">
<span Arial Black",«sans-serif»">Источник:
Львовский М.Б. Методическое пособие «BOOK» по информатике для 9-11 классов.Адрес:
http://markbook.chat.ru/book/