I,n,k:byte;

max:real;

Begin

WriteLn('Enter N');

ReadLn(n);

Writeln('Enter Array');

For i:=1 to n do

Readln(a[i]);

Max:=a[1];

k:=1;

For i:= 2 to n do

If a[i]>max

Then

Begin

max:=a[i];

k:=i;

End;

WriteLn('Max = ',max:7:3,' k = ',k);

End.

1. Инициализация массива и изменения значений элементов массива

Инициализация массива — это присваивание каждому элементу массива одно значение.

А[1] := 0;

A[2] := 0;

A[3] := 0,

A[4] := 0.

Рациональнее использовать цикл.

For i:=1 to 4 do

A[i]:=0;

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

Пример:

A[5]:=7*K;

A[3]:=Sqrt[A[3]];

2. Вывод элементов массива.

Вывод массива осуществляется аналогично вводу при помощи оператора повтора For, в котором изменяются индексы массива от первого до последнего.

Пример:

For i:=1 to 20 do

Write (a[i], ' ');

3. Копирование массивов

Копированием массивов называется присваивание значений всех элементов одного массива всем соответствующим элементам другого массива. Можно выполнить А:=В или с помощью цикла

Пример:

For i:=1 to 20 do

A[i]:=B[i];

Доступ к каждому отдельному элементу двумерного массива осуществляется путём двойного индексирования элементов массива. Первый индекс – строки, второй индекс – столбца. Индекс представляет собой выражение любого скалярного типа, кроме вещественного.

Элементы двумерного массива располагаются в памяти по строкам:

A[1,1], A[1,2]… A[1,N], A[2,1], A[2,2]…, A[M,N]

Описание массивов в разделе Var и в разделах Type и Const

Описание двумерного массива в разделе переменных (Var) – используется как классический прием описания массивов;

Формат описания двумерного массива в разделе переменных:

Var

<идентификатор>:array[индекс1, индекс2] of <тип_компонент>;

Описание двумерного массива в разделах типов и констант (Type, Const) – используется для инициализации массива начальными значениями при запуске программы;

Формат описания двумерного массива в разделах типов и констант:

Type

<имя_типа> = array[индекс1, индекс2] of <тип_компонент>;

Const

<идентификатор>:<имя_типа> =(значения_элементов);

Действия над элементами массива

После объявления массива каждый его элемент можно обработать, указав имя массива, а затем в квадратных скобках через запятую, сперва индекс строки, а затем индекс столбца элемента (Mas[2,7], A[4,1]). Индексированные элементы массива могут быть использованы, как и простые переменные .

Ввод элементов двумерного массива

Ввод двумерного массива осуществляется при помощи двух операторов повтора For (первый оператор For используется для изменения номера строки массива, второй – для изменения столбца), в котором индексы массива изменяются от первого (1) до последнего (размерности массива).

Uses Crt;

Begin

Clrscr;

Writeln(‘Введите массив’);

Y:=5;

For i:=1 to 4 do

begin

X:=2;

For j:=1 to 4 do

Begin

GoToXY(X,Y);

ReadLn(a[i,j]);

X:=X+4;

End;

Y:=Y+2;

end;

Вывод элементов массива

Вывод массива осуществляется аналогично вводу при помощи оператора повтора For.

For i:=1 to 4 do

Begin

For j:=1 to 4 do

Write (a[i,j], ‘ ‘);

Writeln;

End;