N:=4;

for i:=0 to N-1 do y[i]:=i;

repeat n:=0;

for i:=0 to N-2 do if x[i]>x[i+1] then begin

c:=x[i];

x[i]:=x[i+1];

x[i+1]:=c;

d:=y[i];

y[i]:=y[i+1];

y[i+1]:=d;

n:=n+1; end;

until n=0;

for i:=0 to N-1 do writeln(x[y[i]]);

Задание 10. Массивы

1. Заполнение массивов.

Опишите три массива с одинаковым количеством элементов, заданным константой. Значения элементов первого массива должны вводиться с клавиатуры, второго быть равными номерам элементов, третьего быть случайными целыми числами в диапазоне от 0 до 10. После заполнения выведите элементы каждого из массивов.

При решении следующих задач можно использовать любой из способов заполнения.

2. Пусть описана константа и два типа-массива:

const

m = 3; type

TMas1 = array [1..2*m+1] of real; TMas2 = array [-m..m] of real;

Создайте программу, которая значения, записанные в элементах массива 1-го типа, переносит в массив 2-го типа.

3.Создайте программу, проверяющую есть ли в целочисленном массиве хотя бы один нечетный элемент.

4.В массиве, элементами которого являются целые числа произвести следующие действия:

1)Если элементы меньше заданного числа, замените их этим числом.

2)Замените все элементы с индексами в диапазоне [a, b] нулями.

3)Поменяйте местами первый и последний элементы массива.

4)Совершите циклическую перестановку элементов массива (сдвиньте все элементы вправо, а последний поставьте на первое место).

5)Расположите элементы массива в обратном порядке.

6)Поменяйте местами элементы с четными и нечетными индексами (1-й со 2-м, 3-й с 4-м и т.д.)

7)Сожмите массив, выбросив из него каждый второй элемент. Оставшуюся половину массива заполните нулями.

8)Вставьте дополнительный элемент в массив в заданное место. Чтобы освободить это место, все элементы, начиная с него, сдвиньте вправо. Последний элемент будет некуда девать – и черт с ним.

9)Определите индекс указанного пользователем элемента массива. Если такого элемента нет, сообщите об этом пользователю.

5. Пусть имеется массив, заполненный целыми числами. Получите на его

основе новый массив следующими способами:

1)Получите массив из разностей соседних элементов исходного массива.

2)Получите массив из скользящих сумм n соседних элементов. То есть каждый i-й элемент нового массива это сумма n элементов старого, начиная с i-го. Новый массив, очевидно, будет содержать на n-1 элементов меньше. Пусть массивы заданы с одинаковой длиной, просто не выводите элементы нового массива, которые невозможно вычислить.

6.Получите сумму и среднее арифметическое всех элементов массива.

7.Получите корень из суммы квадратов всех элементов массива (модуль вектора).

8.Для двух массивов получите сумму попарных произведений их членов (скалярное произведение).

9.Для двух массивов получить Евклидово расстояние между ними.

10.Найдите максимальный и минимальный элементы массива.

11.Отсортируйте элементы массива методом выбора.