Массивы

одного типа, имеющая общее имя.
Описание массива:
: array [] of

<тип элементов>;

Пример объявления массива 10-ти целых чисел.

Var
a : array [1..10] of integer;

индекс

элемент

a : array [1..50] of real;
b,c : array [1..20] of

integer;
…
Аналогичное описание массивов с использованием раздела описания типов:
Type
mas1=array[1..50] of real;
mas2=array[1..20] of integer;
Var
a : mas1;
b,c : mas2;
…

функция генерации случайного числа в диапазоне от 0 до n-1.

Var
a

: array [1..15] of integer;
i : integer;
Begin
randomize;
writeln (‘Элементы целочисленного массива A[15] сформированные случайными числами диапазона от -100 до 100.‘);
for i:=1 to 15 do
begin
a[ i ]:=random(201)-100;
write (a[ i ]:6);
end
End.

начало

Ai

A[15]

конец

: integer;
Begin
randomize;
writeln (‘ Массив A ‘);
for i:=1 to 10 do

begin
a[ i ]:=random(51);
write (a[ i ]:5);
end;

начало

Ai, Bi

a[10], b[10], c[10]

конец

Ci

writeln (‘ Массив B ‘);
for i:=1 to 10 do
begin
b[ i ]:=random(151)-70;
write (b[ i ]:5);
end;
for i:=1 to 10 do
c[ i ]:=a[ i ]+b[ i ];
writeln (‘ Массив C ‘);
for i:=1 to 10 do
write (c[ i ]:6);
End.

на экран номеров (индексов) четных элементов.
Для решения задачи необходимо просмотреть

весь массив, и если просматриваемый элемент является четным, то выводить его индекс.

integer;
Begin
writeln (‘ Введите элементы
массива A ‘);
for i:=1 to n

do
begin
write (‘a[‘, i , ‘] =‘);
read (a[ i ]);
end;
for i:=1 to n do
if a[ i ] mod 2=0 then
write (i:4);
End.

начало

Ai

a[10]

конец

i=1;10

i

+

-

a[ i ] mod 2=0

элементов массива относится к классическим задачам обработки данных с использованием

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

: integer;
Begin
randomize;
writeln (‘ Массив ‘);
for i:=1 to 10 do
begin
a[

i ]:=random(101)-50;
write (a[ i ]:6);
end;
min:=a[1];
for i:=2 to 20 do
if a[ i ] < min then
min:=a[ i ];
writeln (min)
End.

начало

Ai

a[20]

конец

i=2;20

A[ i ]

min=a[ i ]

+

-

min

min=a[1]

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

место следующие (i+1) элементы. Вводят так же переменную, которая обозначает индекс последнего элемента и при каждом шаге удаления элемента ее уменьшают на 1. Рассмотрим задачу на удаление всех отрицательных элементов массива.

(‘ Массив A ‘);
for i:=1 to 20 do
begin
a[ i

]:=(random(201)-80)/(random(100)+1);
write (a[ i ]:6:2);
end;
m:=20;
for i:=1 to 20 do
begin
if a[ i ]<0 then

begin
for j:=i to 20 do
a[ j ]=a[ j+1 ];
dec(m)
end;
if a[ i ]<0 then
dec(i)
end;
writeln (‘ Массив A без отрицательных
элементов ‘);
for i:=1 to m do
write (a[ i ]:6:2)
End.

Поэтому изначально размер массива должен быть больше на количество предполагаемых

элементов для включения в массив. При включении элемента следует в цикле перебирать элементы от последнего элемента до индекса, куда будет включен элемент и переписывать значения текущего (i-го) элемента на место последующего (i+1). Следует так же ввести переменную для хранения индекса последнего элемента, которую при каждом включении увеличивают на 1. Рассмотрим задачу на включение значения T в массив, которое должно располагаться за максимальным элементом массива.

integer;
t, max : real;
Begin
randomize;
writeln (‘ Массив A ‘);
for i:=1 to

20 do
begin
a[ i ]:=(random(201)-80)/(random(100)+1);
write (a[ i ]:6:2);
end;
readln (t);
max:=a[1];
i_max:=1;
for i:=2 to 20 do
if a[ i ]>max then

begin
max:=a[ i ];
i_max:=i
end;
for j:=21 downto i_max-1 do
a[ j ]=a[ j-1 ];
a[i_max]=t;
writeln (‘ Массив A c включенным
элементом t ‘);
for i:=1 to 21 do
write (a[ i ]:6:2)
End.

выполнения достаточно воспользоваться "временной" переменной, в которую сначала помещают значение

первой переменной. Затем в первую переменную заносят значение второй (если не воспользоваться "временной" - значение первой переменной будет потеряно). И сохраненное значение первой переменной во "временной" заносят во вторую переменную. Эту операцию образно можно сравнить с операцией по переливанию двух разных жидкостей из двух пробирок, воспользовавшись третьей - пустой пробиркой.

tmp:=a;


a:=b;



b:=tmp;

порядке. Для решения этой задачи можно воспользоваться другим массивом, в

который можно записать элементы из данного массива в обратном порядке. Однако целесообразнее сделать это за наименьшее количество перестановок и не использовать дополнительного массива. Как это сделать? Можно двигаться от первого элемента до середины массива и менять местами первый элемент с последним, второй - с предпоследним и т.д. Получается что в цикле будут обмениваться элемент с i-м индексом с элементом у которого индекс равен n-i+1 , где n- индекс последнего элемента.

: real;
Begin
randomize;
writeln (‘ Массив A ‘);
n:=20;
for i:=1 to n do

begin
a[ i ]:=(random(201)-80)/(random(100)+1);
write (a[ i ]:6:2);
end;
for i:=1 to n div 2 do
begin
tmp:=a[ i ];
a[ i ]:=a[ n-i+1 ];
a[ n-i+1 ]:=tmp;
end;

writeln (‘ Инвертированный массив A ‘);
for i:=1 to n do
write (a[ i ]:6:2)
End.

элемента массива. В том случае, если элемент массива с номером iоказывается

больше элемента массива с номером i+1, происходит обмен значениями при помощи вспомогательной переменной buf 

различными таблицами данных, математическим эквивалентом которых служат матрицы. Такой способ

организации данных, при котором каждый элемент определяется номером строки и номером столбца, на пересечении которых он расположен, называется двумерным массивом (матрицей) или таблицей.

Массив из N строк и M столбцов
Const
n=6;
m=8;
Var a : array [1..n, 1..m] of integer;

и равно n.

Любая квадратная матрица имеет элементы главной и

побочной диагонали.

Диагональные элементы главной диагонали :
a[1 , 1];a[2 , 2];a[3 , 3];….;a[n , n].

Элементами побочной диагонали являются :
a[1 , n];a[2 , n-1];a[3 , n-2];…;a[n-1 , 2];a[n , 1].

n случайными числами и нахождения произведения элементов главной диагонали и

суммы элементов ниже побочной диагонали.
Отметим элементы главной диагонали для нахождения их произведения.

p : integer;
Begin
randomize;
for i:=1 to n do
begin
for j:=1 to

n do
begin
a[ i, j ]:=random(101);
write (a[ i , j ]:6);
end;
writeln;
end
p:=1;
for i:=1 to n do
p:=p*a[ i, i ];
s:=0;
for i:=2 to n do
for j:=n-i+2 to n do
s:=s+a[ i, j ];
writeln (p,s);

End.

ее столбцами, а столбцы - строками, т.е. вычислить

b[ i,j ] :=a[ j,i ], где i=1,…,n; j=1,…,m.

Матрица А Матрица B

integer;
b : array [1..m,1..n] of integer;
Begin
randomize;
writeln (‘Сформирована матрица A’);
for i:=1

to n do
begin
for j:=1 to m do
begin
a[ i,j ]:=random(31)-15;
write (a[ i,j ]:6);
end;
writeln(‘’);
end;

for i:=1 to n do
for j:=1 to m do
b[ j,i ]:=a[ i,j ];
writeln (‘Получена транспонированная матрица B’);
for i:=1 to m do
begin
for j:=1 to n do
write(b[ i,j ]:6);
writeln(‘’);
end;
End.

n*m на вектор B
размером m необходимо вычислить

, i=1,….,n.







Использование вспомогательной переменной s позволяет уменьшить время выполнения программы за счет исключения обращения в цикле по j к элементам массива C.

array [1..n,1..m] of integer;
b : array [1..m] of integer;
c: array

[1..n] of integer;
Begin
randomize;
writeln (‘Сформирована матрица A’);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[ i,j ]:=random(101)-50;
write (a[ i,j ]:6);

end;
writeln(‘’);
end;
writeln (‘Сформирован вектор B’);
for j:=1 to m do
begin
b[ j ]:=random(51)-30;
write (b[ j ]:6);
end;
for i:=1 to n do
begin
s:=0;
for j:=1 to m do
s:=s+a[ i,j ]*b[ j ];
c[ i ]:=s;
end;
writeln (‘Получен вектор C ’);
for i:=1 to n do
write(c[ i ]:6);
End.

матрицу B размером k*m
необходимо вычислить

, i=1,…,n; j=1,…,m.

Const
n=3;
m=4;
k=5;
Var
i, j, s : integer;
a : array [1..n,1..k] of integer;
b : array [1..k,1..m] of integer;
c : array [1..n,1..m] of integer;
Begin
randomize;
writeln (‘Сформирована матрица A’);
for i:=1 to n do

begin
for j:=1 to k do
begin
a[ i,j ]:=random(101)-50;
write (a[ i,j ]:6);
end;
writeln;
end;
writeln (‘Сформирована матрица B’);
for i:=1 to k do
begin
for j:=1 to m do
begin
b[ i,j ]:=random(351)-85;

do
for j:=1 to m do
begin
s:=0;
for l:=1 to k do
s:=s+a[ i,l

]*b[ l,j ];
c[ i,j ]:=s;
end;

writeln (‘Сформирована матрица С’);
for i:=1 to n do
begin
for j:=1 to m do
write (c[ i,j ]:6);
writeln;
end
End.

элементов одномерного массива, за тем исключением, что операция переноса элементов

выполняется для каждого столбца при переборе строк. Рассмотрим программу удаления из матрицы А заданной с клавиатуры строки T.

Const
n=10; m=5;
Var i, j, t, n : integer;
a : array [1..n,1..m] of integer;
Begin
for i:=1 to n do
for j:=1 to m do
a[ i,j ]:=random(101)-50;

writeln (‘Введите номер строки для удаления’);
readln (t);

k:=n-1;
for i:=t to k do
for j:=1 to m do
a[ i,j ]=a[ i+1,j ];
writeln (‘Получена матрица ‘);
for i:=1 to k do
begin
for j:=1 to m do
write (a[ i,j ]);
writeln;
end
End.

1..3, 1..16, 1..4 ] of real;
…
for i:=1 to 5 do
for

j:=1 to 3 do
for k:=1 to 16 do
for m:=1 to 4 do
a[ i,j,k,m ]:=random(101);
…