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

Массив - это переменная,образованная последовательностью переменных, которые имеют один и тот же тип каждый компонент имеет свой номер множество индексов конечно, зафиксировано в определении массива возможность обработки компонента, его доступность не зависит от его места в последовательности

Первый способ описания массива: Type = Array[1..n] Of ; Var А, В, С: ; Например: … Type Mas = Array [1..30] оf integer; Var a: Mas; … Второй способ описания массива: Var : Array[1..n] of ; Например: … Var А: Array[1..30] of integer; …

ВВОД МАССИВА: Program vvod; Const n=10; Var a: array[1..n] of integer; i: integer; Begin For i:=1 to n do begin writeln('Введите,i, элемент массива '); readln(a[i]); end; End.

ВЫВОД МАССИВА: Program vivod; Const n=10; Var a: array[1..maxM] of integer; i: integer; Begin For i:=1 to n do begin write (a[i], ); end; End.

Program Poisk; Const n=10; Var a: array[1..n] of integer; i,S: integer; Begin S:=0; For i:=1 to n do begin writeln('Введите,i,элемент массива '); readln(a[i]); if a[i]

. Program vvod2; Const n=10; Var a: array[1..n] of integer; i: integer; Begin Randomize; {функция позволяет перемешивать числа из диапазона указанного в функции random и употребляется перед ней } For i:=1 to n do begin a[i]:=random(101)-80; {Функция random(101) генерирует целые числа в диапазоне от 0 до 100} write(a[i]); end; End. Ввод элементов массива с помощью генератора случайных чисел.

Дан одномерный массив K из 10 целых элементов, найти максимальный элемент и его индекс. Program Poisk_2; Const n=10; Var a: array[1..n] of integer; Max, i, max_n: integer; Begin Randomize; For i:=1 to n do begin a[i]:=random(101)-80; write(a[i], ); end; Max:=a[1]; Max_n:=1; for i:=2 to n do if Max

Сортировка массива - это расстановка эдементов массива в некотором порядке. Убывающий порядок - каждый следующий элемент должен быть меньше предыдущего. Невозрастающий - каждый следующий элемент должен быть не больше предыдущего. Возрастающий - каждый следующий элемент больше предыдущего. Неубывающий - каждый следующий элемент не меньше предыдущего.

For i:=1 to N-1 do For j:=1 to N-i if A[j]>A[j+1] then begin st:=A[j]; A[j]:=A[j+1]; A[j+1]:=st; end;