Массив – это объединение нескольких однотипных объектов ( чисел, символов, строк ), рассматриваемых как единое целое. Вопрос 1: когда возникает необходимость применения массивов ? Ответ : когда требуется связать и использовать целый ряд родственных величин.

Примеры : 1) Результаты замеров температуры : 2) Животные на ферме : 29,223,713,517,131,615,420,419,3 КошкаСобакаСвиньяЛошадьКоза

Вопрос 2: как в Pascal описывается массив ? Какие зарезервированные слова используются ? Ответ : зарезервированные слова ARRAY и OF ( массив, из ). Пример : ARRAY [1..50] OF Integer;

Доступ к каждому элементу массива в программе осуществляется с помощью индекса - целого числа, служащего своеобразным именем элемента в массиве. a[1]= Анофриков Александр a[2]= Акатьев Павел … a[8]= Дятлов Антон и т. д. Массив a: 1 Анофриков Александр 2 Акатьев Павел 3 Баранов Семён 4 Бовина Елена 5 Бубнова Вероника 6 Григорьев Дмитрий 7 Дементьев Павел 8 Дятлов Антон

1) Рассмотрим арифметические операции с элементами массива ( сумма, произведение элементов ); 2) Поиск элемента в массиве.

Логика программы : a = (2, 4, 5, 1, 6) Найдем сумму элементов (S): Шаг 1: S = 0; Шаг 2: S = S + a[1] = =2; Шаг 3: S = S + a[2] = = 6; Шаг 4: S = S + a[3] = = 11; Шаг 5: S = S + a[4] = = 12; Шаг 6: S = S + a[5] = =18.

program summa; uses crt; var i: integer; s: integer; a: array [1..10] of integer; begin clrscr; randomize; s:=0; for i:=1 to 10 do a[i]:=random(100); write( Массив : '); for i:=1 to 10 do write(a[i], ' '); writeln; for i:=1 to 10 do s:=s+a[i]; write( Сумма элементов массива : ', s); readln; end.

Логика программы : a = (2, 4, 5, 1, 6) Найдем произведение элементов (P): Шаг 1: P = 1; Шаг 2: P = P * a[1] = 1 * 2 =2; Шаг 3: P = P * a[2] = 2 * 4 = 8; Шаг 4: P = P * a[3] = 8 * 5 = 40; Шаг 5: P = P * a[4] = 40 * 1 = 40; Шаг 6: P = P * a[5] = 40 * 6 =240.

program product; uses crt; var i: integer; p: longint; a: array [1..10] of integer; begin clrscr; writeln; randomize; p:=1; for i:=1 to 10 do a[i]:=random(10); write( Массив : '); for i:=1 to 10 do write(a[i], ' '); writeln; for i:=1 to 10 do p:=p*a[i]; write( Произведение элементов массива : ', p); readln; end.

a =(2, 4, 0, 2, 6, 8, 2), i a[1] = 2 => выводим i = 1 a[2] = 4 2 => переходим к следующему i a[3] = 0 2 => переходим к следующему i a[4] = 2 => выводим i = 4 a[5] = 6 2 => переходим к следующему i a[6] = 8 2 => переходим к следующему i a[7] = 2 => выводим i = 7

program find; uses crt; var i: integer; a: array [1..10] of integer; begin clrscr; writeln; randomize; for i:=1 to 10 do a[i]:=random(10); write( Массив : '); for i:=1 to 10 do write(a[i], ' '); writeln; write( Номера элементов, равных 2: '); for i:=1 to 10 do if a[i]=2 then write(i, ' '); readln; end.

1. Вычислить среднее арифметическое элементов массива. 2. Вычислить произведение элементов массива с чётными номерами. 3*. Вычислить скалярное произведение двух векторов. 4. Найти номера чётных элементов массива и вывести эти элементы.

1. Как вычисляется среднее арифметическое ? Ответ : ( сумма всех эл - тов )/( кол - во эл - тов ) 2. Что такое чётное число ? Как оно выглядит ( формула )? Ответ : чётное число делится на два, значит, оно имеет вид 2*n.

3. Что необходимо, чтобы можно было вычислить скалярное произведение ? Ответ : одинаковая длина векторов. 4. Как вычисляется скалярное произведение двух векторов ? Ответ : скалярное произведение равно сумме произведений соответствующих элементов : a = (a 1, a 2, …, a n ), b = (b 1, b 2, …, b n ) (a, b) = a 1 *b 1 + a 2 *b 2 + … + a n *b n