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

По условию задания необходимо два раза выполнить однотипные вычисления, поэтому алгоритм нахождения максимума в одномерном массиве из n элементов оформим в виде процедуры с параметрами MaxVekt. Параметром для данной процедуры является массив и его тип (как и всех составных типов) может быть указан только с помощью предварительно описанного имени типа. Безымянные типы в этом случае не допускаются. Чтобы не создавать в процедуре копию параметра-массива, он объявлен как параметр-переменная и передается по ссылке.

program Max_Vekt;

Const

N = 10;

Type

Vector = Array [ 1.. N ] of Real;

Var

U, V: Real; X, Y: Vector; i: Integer;

procedure MaxVekt(Var A:Vector; N:Integer; Var Max:Real);

Var i: Integer;

Begin

Max:= A[ 1 ];

for i:= 2 to N do

if A[ i ] > Max then Max:= A[ i ]

end;

Begin

Writeln('Введите элементы массива "X"');

for i:= 1 to N do

Read(X[ i ]);

Writeln('Введите элементы массива "Y"');

for i:= 1 to N do

Read(Y[ i ]);

MaxVekt (X, N, U);

Writeln('Максимальное значение в массиве "X" =',U:7:1);

MaxVekt (Y, N, V);

Writeln('Максимальное значение в массиве "Y" =',V:7:1)

End.

5.5. Пусть даны две вещественные матрицы порядка n. Получите новую матрицу следующим способом (для нахождения минимального элемента и произведения элементов в указанной строке используйте функции):

а) умножением минимального элемента каждой строки первой матрицы на наибольший элемент соответствующего столбца второй матрицы;

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

5.6. Пусть дана матрица А(n х m), состоящая из натуральных чисел. В каждом столбце обнулите минимальное количество элементов так, чтобы сумма элементов столбца не превышала заданную.

5.7. Для заданных значений n и m (n ≤ m) написать программу вычисления числа сочетаний из m элементов по n:

С =