Цель работы: научиться разрабатывать и отлаживать программы с использованием регулярных типов (векторов).
Массив - упорядоченная структура однотипных данных, хранящихся последовательно.
Массив обязательно имеет размеры, определяющие, сколько в нем хранится элементов. Описывается в разделе TYPE (или VAR). Структура описания одномерного массива:
<имя>=ARRAY[диапазон_индексов] OF <базовый_тип>;
Диапазон указывает значения индексов первого и последнего элементов в массиве.
Пример. Найти значение и номер наименьшего элемента в одномерном массиве. При задании элементов исходного массива типизированной константой СА решения задачи имеет вид (рис.8, а) и используется следующая программа:
Program lr6_1;
const a: array[1..10] of integer=(5,2,7,1,8,3,4,5,6,6);
var i, min, n: integer;
Begin
min:=a[1]; n:=1;
for i:=2 to 10 do
if a[i]<min then begin
min:=a[i];
n:=i;
end;
writeln('минимальный элемент равен ',min, ' n=',n);
End.
Если элементы массива вводятся с клавиатуры, то СА имеет вид (рис.8,б) и текст программы изменится:
program lr6_2;
var a: array[1..10] of integer;
i, min, n: integer;
Begin
read(a[1]);
min:=a[1]; n:=1;
for i:=2 to 10 do begin
read(a[i]);
if a[i]<min then begin
min:=a[i]; n:=i;
end;
end;
writeln('минимальный элемент равен ', min, ' n=',n);
End.
