max:=A[1];
imax:=1;
for i:=2 to n do
if A[i]>max then
begin
max:=A[i];
imax:=i;
end;
7. Вывод индексов для части элементов
for i:=1 to n do
if A[i]>z then
writeln(i);
Рассмотрим одномерный массив . Элементы ai этого массива имеют такие особенности:
1. Элементы положительные, если .
2. Элементы отрицательные, если .
3. Элементы нулевые, если .
4. Элементы ненулевые, если .
5. Элементы находятся в диапазоне от x до y, если и .
6. Элементы не находятся в диапазоне от x до y, если или .
7. Элементы чётные, если или .
8. Элементы нечётные, если или .
9. Элементы на чётных местах, если или .
10. Элементы на нечётных местах, если или .
11. Элементы кратны x, если .
12. Элементы на местах, кратных x, если .
Двумерный массив (матрица) – одномерный массив, элементы которого также являются одномерными массивами.
Индекс двумерного массива– порядковый номер строки или столбца в двумерном массиве.
Описание двумерного массива в разделе описания переменных (Var) на языке Pascal имеет вид:
Mas : array [ IMin .. IMax , JMin .. JMax ] of T ;
где array – массив, of – из, Mas – имя массива, IMin – минимальное значение индекса строки, IMax – максимальное значение индекса строки, JMin – минимальное значение индекса столбца, JMax – максимальное значение индекса столбца, T – тип элементов.
Это означает, что переменная Mas является массивом, который может иметь индексы строк от IMin до IMax , индексы столбцов от JMin до JMax у элементов типа T .
Пример.
Var A : array [1..10,1..15] of real;
Это означает, что переменная A – массив, который может содержать от 1 до 10 строк, от 1 до 15 столбцов из элементов вещественного типа.
Доступ к элементу двумерного массива на языке Pascal имеет вид:
Mas [ Ind1 , Ind2 ]
где Mas – имя массива, Ind1 – индекс строки, Ind2 – индекс столбца.
Это означает доступ к элементу массива Mas , находящемуся в строке с индексом Ind1 и в столбце с индексом Ind2 .
Пример.
A[1,1]
b[i,j]
Это означает элемент массива A в 1-й строке и 1-м столбце, и т.д.
Задача 2.
Условие задачи. Дан двумерный массив A из m строк и n столбцов (m £ 10; n £ 15). Найти сумму положительных элементов в массиве A.
Блок-схема.
Программа.
Program z2;
Var
A:array[1..10,1..15] of real;
i,j,m,n:integer;
s:real;
Begin
read(m,n);
s:=0;
for i:=1 to m do
for j:=1 to n do
begin
read(A[i,j]);
if A[i,j]>0 then s:=s+A[i,j];
end;
writeln(s);
End.
Пусть A - одномерный массив, m - количество строк, n - количество столбцов, i - индекс строки, j - индекс столбца. Рассмотрим следующие фрагменты программ.