МАССИВЫ

Если работа программы связана с хранением и обработкой большого количества однотипных переменных, для их представления в программе можно использовать массивы. Массив представляет собой совокупность данных одного типа с общим для всех элементов именем. a: array [1..10] of real: Массив относится к структурированным типам данных ( упорядоченная совокупность данных ).

Элементы массива пронумерованы, и обратиться к каждому из них можно по номеру Номера элементов массива иначе называются индексами, а сами элементы массива переменными с индексами ( индексированными переменными ) Значение элементов массива а[3]=2, а а[7]=4, а[9]=6.

var Имя Массива : array[ Нижняя Граница.. Верхняя Граница ] of Тип Элементов ; var a: array[1..100] of real; { 100 элементов вещественные числа } b: array[0..50] of char; { 51 элемент символы } c: array[1..20] of integer; { 20 элементов целые числа }

program sadacha; var a:array [1..10] of real: I: integer; begin for i:=1 to 10 do readln(a[i]);

блок обработки массива : s:=0: for i:=1 to n do s:=s+a[i]; блок вывода результатов обработки : writeln(' сумма элементов равна ',s:4:2); readln; end.

Суммирование 1.1. Для нахождения суммы всех элементов : s:=0: for i:=1 to n do s:=s+a[i]; 1.2. Для нахождения суммы по условию : s:=0: for i:=1 to n do if условие поиска then s:=s+a[i];

2. Произведение элементов 2.1. Для нахождения произведения всех элементов : р :=1: for i:=1 to n do р := р *a[i]; 2.2. Для нахождения произведения по условию : р :=1: for i:=1 to n do if условие поиска then р := р *a[i];

Программа, вычисляющая сумму всех элементов массива program sadacha; var a:array [1..10] of real; s: real; i: integer; begin for i:=1 to 10 do readln(a[i]); for i:=1 to 10 do s:=s+a[i]; Writeln('s=',s:4:2); readln; end.

Программа, определяющая наименьший элемент массива program sadacha; var a:array [1..15] of real; Min,s: real; i: integer; begin for i:=1 to 15 do readln(a[i]); for i:=1 to 15 do if a[i]<min then min:= a[i]; writeln('min =',min:4:2); readln; end.

Программа, определяющая наибольший элемент массива program zadacha; var a:array [1..15] of real; Max, s: real; i: integer; begin for i:=1 to 15 do readln(a[i]); for i:=1 to 15 do if a[i]>max then max:= a[i]; writeln('max =', max:4:2); readln; end.