1. Объявить константы N - размер массива, A и B - границы отрезка. Заполнить одномерный массив v целыми случайными числами из отрезка [A, B]. Вывести элементы массива в строку.
Пример
const N = 5; A = -25; B = 15; var i : Byte; v : array [1..N] of Integer; begin Randomize; for i := 1 to N do begin v[i] := Random(Abs(B - A)) + A; end; end.
2. Создать массив-константу вещественных чисел. Вывести сначала все элементы в столбик, а затем только положительные элементы - в строку.
Пример
const N = 5; z : array [1..N] of real = (3.5, -2.4, -9.1, 0.4, -1.2);
3. Обменять значениями два элемента одномерного массива с заданными номерами r и k.
4. Объявить два массива v и t. Заполнить одномерный массив v целыми случайными числами из отрезка [A, B]. Записать элементы массива v, большие заданного k, в массив t.
5. Заданы числа cmax - количество колонок и rmax - количество строк. Вывести элементы одномерного массива в cmax колонок rmax строк по строкам или столбцам. Сколько для этого должно быть элементов массива? Массив заполните с помощью генератора псевдослучайных чисел.