Массивы Массив – это упорядоченная совокупность данных, обозначаемых одним именем, доступ к элементам массива осуществляется по их номерам (индексам). Элементами массива могут быть данные любого типа, включая структурированные, но в одном массиве могут храниться данные только одного типа (real, integer, string, char и пр.). Если за каждым элементом массива закреплен только один его порядковый номер, то такой массив называется линейным, одномерным или вектором. Одномерные массивы
Объявление одномерных массивов Описать одномерный массив можно несколькими способами: В разделе переменныхVar имя массива : Array [тип индекса] of тип элементов ; В разделе описания типовType имя типа = Array [тип индекса] of тип элементов ;Var имя массива : имя типа ; В разделе константConst имя массива : Array [тип индекса] of тип элементов = (список элементов);
Ввод данных в одномерный массив 1. Ввод массива с клавиатуры оператором Read. For i:=1 to n do Begin Writeln('введите элемент массива'); Read (A[ i ]); 2. Заполнение массива с помощью генератора случайных чисел Random на интервале (a,b): Randomize; For i:=1 to n do A[ i ] := Random (b-a)+a; 3. Ввод массива в разделе констант (производится вместе с объявлением). Const N=5; A:=array [1..N] of integer (-8,0,4,1,3); Вывод данных в одномерном массиве Вывод массива в Паскале осуществляется также поэлементно, в цикле, где параметром выступает индекс массива, принимая последовательно все значения от первого до последнего. Вывод в строку. A: array [1..10] of integer; i : integer ; Begin For i :=1 to 10 do Write ( a [ i ],' '); End Вывод в столбец. var A: array [1..10] of integer; i : integer ; Begin For i :=1 to 10 do Writeln ( a [ i ]); End Пример 1: Ввести 2 вектора, размерностью n, найти сумму этих векторов. Program summa; Var a, b, c: array [1..100] of integer; i, n: byte; Begin Write (‘введите размерность массивов:’); Readln(n); For i:=1 to n do Readln (a[i]); For i:=1 to n do Readln (b[i]); For i:=1 to n do C[i]:=a[i]+b[i]; For i:=1 to n do write (c[i],’ ‘); end. Двумерные массивы Массивы, положение элементов в которых описывается двумя индексами, называютсядвумерными. Их можно представить в виде прямоугольной таблицы или матрицы. Каждый элемент имеет свой номер, как у одномерных массивов, но сейчас номер уже состоит из двух чисел - номера строки, в которой находится элемент, и номера столбца. Таким образом, номер элемента определяется пересечением строки и столбца. Например, a12 - это элемент, стоящий в первой строке и во втором столбце. Существуют несколько способов объявления двумерного массива. Способ 1. В Паскале двумерный массив можно описать как одномерный, элементами которого являются одномерные массивы. Например, для матрицы А, приведённой выше: Const n = 2; m = 3;Type omyarray = Array[1..m] Of <тип элементов >;dmyarray = Array[1..n] Of omyarray;Var v : omyarray;a : dmyarray; В данном случае переменная v объявлена как одномерный массив из трёх элементов вещественного типа. Переменная а описана как двумерный массив из двух строк, каждую из которых включено по три элемента. Способ 2. Описание массива А можно сократить, исключив определение типа omyarray в определении типа dmyarray: Const n = 2; m = 3;Type dmyarray = Array[1..n, 1..m] Of <тип элементов>;Var a : dmyarray. Способ 3. Ещё более краткое описание массива А можно получить, указывая имя массива и диапазоны изменения индексов для каждой размерности массива: Const n = 2; m = 3;Type dmyarray = Array[1..n, 1..m] Of <тип элементов >; Var a : dmyarray. Если указанный тип используется для определения одного массива в программе, то удобно объявление массива в разделе описания переменных: Var a: Array [1..n, 1..m] Of < тип элементов >. Рассмотренные выше методы решения задач обработки одномерных массивов могут применяться для обработки двумерных массивов. Поскольку положение элемента в двумерном массиве описывается двумя индексами [первый - номер строки, второй - номер столбца], программы большинства матричных задач строятся на основе вложенных циклов. Обычно внешний цикл работает по строкам матрицы, то есть с его помощью выбирается требуемая строка матрицы, а внутренний цикл - по столбцам матрицы, то есть здесь выбирается нужный элемент из выбранной уже строки. Пример 2: Program massiv; Const n = 3; m = 4; Type massiv = Array[1..n., 1..m] of integer; Var A : massiv; I,j:integer; Begin For i:=1 To n Do For j:=1 To m Do x[i,j]:=-25+Random(51); For i:=1 To n Do Begin For j:=1 To n Do Write(x[i,j]:5); Writeln; End; <span>End.
Uses Crt; const n=11; type Vec=array [1..n] of integer; var F: Vec; i, Col, el,Rez: integer; flag: boolean; begin for i:=1 to n do begin F[i]:=10+random(90); if (F[i] mod 2 <>0) then Col:=Col+1; end; flag:=false; for i:=1 to n do if (F[i] mod 2 = 0) then begin flag:=true; el:=F[i]; exit; end; Rez:=Col*el; Writeln(' Rez = ', Rez); ReadLn; end.