2.2. Пример обработки многомерного массива

Как правило, при обработке многомерных массивов используются вложенные циклы, т.е. цикл по столбцам располагается внутри цикла по строкам.

Дана матрица A(3,4), и вектор B (4), состоящие из целых чисел . Умножить матрицу А на вектор В .

program pr4-2 ;

const m=3; n=4;

var

a : array [ l .. m, 1 .. n ] of integer; (* описание матрицы *)

b : array [ 1 .. n ] of integer; (* описание вектора *)

c : array [ 1 .. m ] of integer; ( * описание С *)

i, j: integer;

begin

for i:=l to m do (* ввод матрицы *)

begin

writeln (‘введите элементы ‘, i , ‘-той строки’);

for j:=1 to n do read (a [i, j] ); writeln;

end;

writeln (‘введите элементы вектора’);

for j:=1 to n do (* ввод вектора *)

read (b[ j]); writeln;

for i:=l to m do

begin

c [ i ]:=0; for j:=l to n do c[i] := c[ i ]+ a[i , j]* b[j];

end;

for i:=l to m do (*форматный вывод матрицы *)

begin

for j:=1 to n do write (a [i, j]: 4 ); writeln;

end;

for j:=l to n do write (b [ j ] :4); (* вывод массива B *)

writeln ;

for i:=l to m do write (c [ i ] :4); (* вывод массива С *)

readln;

end.

В программе элементы матрицы вводятся по строкам по одному с подтверждением клавишей Enter. А выводятся в общепринятом виде: каждая строка матрицы с новой строки экрана (цикл i по строкам внешний, а цикл j – внутренний).

3. Выполнение работы

1. Набрать и откомпилировать приведенные выше программы, исправить выявленные ошибки. Ввести элементы массива, убедиться в правильности выполнения программ.

2. Составить и выполнить программы с применением массивов согласно вариантам заданий .

Варианты задания 1. Ввести массив А из 10 элементов

1. Найти наибольший элемент и переставить его с первым элементом. Преобразованный массив вывести.

2. Найти наименьший элемент и переставить его с последним элементом. Преобразованный массив вывести.

3. Найти произведение положительных элементов и вывести его на экран.

4. Найти произведение отрицательных элементов и вывести его на экран.

5. Найти сумму положительных элементов и вывести ее на экран.

6. Найти сумму отрицательных элементов и вывести ее на экран.

7. Найти сумму элементов, больших 3 и меньших 8 и вывести ее на экран.

8. Найти сумму элементов, меньших по модулю 5 и вывести ее на экран.

Варианты задания 2

1. Даны матрица A размером m*n и вектор В размером m. Записать на главную диагональ элементы вектора, а в вектор - элементы главной диагонали.

2. Выбрать максимальный элемент матрицы С (размер m*n), элементы четных строк разделить на максимальный элемент, а к элементам нечетных прибавить максимальный элемент .

3. Найти минимальный элемент матрицы С (размер m*n), и поменять его местами с первым элементом.

4. Дана матрица Е размером m*n. Вычислить суммы элементов каждого столбца. Определить наибольшее значение этих сумм и номер соответствующего столбца.

5. В матрице К размером m*n найти в каждом столбце произведение отрицательных элементов и количество нулевых элементов в матрице .

6. Даны две матрицы А и В одинаковой размерности m*n. Получить матрицу C = max (a i j, b i j ), и матрицу D = min (a i j, b i j).

7. Дана матрица Р размером m*n . Найти сумму минимальных элементов каждого столбца матрицы.

8. Даны две матрицы: А размером m*k и В размером k*n. Получить матрицу С=A*В.