Массив структура данных, представляющая набор пронумерованных переменных одинакового типа, имеющих общее имя

Одномерный массив : array [.. ] of Mas: array [1.. N] of integer; Mas_2: array [ ] of real; Имя переменной тип переменной Нижний и верхний индексы ( размер массива ) Обозначение массива

Генератор случайных вещественных чисел Пример : random – случайное число из интервала [0;1) random(х)– случайное число из интервала [0;x) a+random(b-a+1)-случайное число из интервала [a;b] randomize - переустановка базы генерации случайных чисел program Input; const N=100; var Mas: array [1.. N] of real; i : integer; begin randomize; for i :=1 to N do begin Mas[i] := random(3); writeln(Mas[i]:4); end; end.

program Input-2; const N=10; var Mas_2: array [1.. N] of integer; i : integer; begin for i :=1 to N do begin write(Mas[, i, ]=); readln(Mas[i]); end; end. Поэлементный ввод

Сумма элементов массива begin S:=0; for i :=1 to N do S := S + Mas[i]; write(S=, S); end. begin Min:=Mas[1]; for i :=2 to N do if Mas[i]<Min then Min :=Mas[i]; write(Min=, Min); end. Поиск минимального элемента

Сортировка элементов массива Массив просматривается конца (снизу вверх). Если из двух соседних элементов «нижний» меньше, чем «верхний», элементы меняются местами. Меньший элемент оказывается ближе к началу массива («всплывает»). Операция повторяется для оставшихся элементов. 1. Метод прямого обмена (« пузырьковый »)

program Sortirovka; const N=5; var A: array [1.. N] of real; с : real; i, j : integer; begin randomize; for i :=1 to N do begin Mas[i] := random(15); writeln(Mas[i]:4); end; writeln; for i :=1 to N-1 do for j :=1 to N-1 do if A[j] > A[j+1] then begin с := A[j]; A[j] := A[j+1]; A[j+1] := c; end; for i :=1 to N do writeln(Mas[i]:4) end. Ввод массива с помощью генератора случайных чисел Вывод массива после сортировки Обмен значений соседних элементов массива Сортировка массива