Для решения данной задачи в Pascal, необходимо сначала объявить и инициализировать матрицу размера N × M:
var
matrix: array of array of Integer;
N, M: Integer;
K, sum, product: Integer;
begin
// ввод значений N, M, K
Readln(N, M, K);
// выделение памяти для матрицы
SetLength(matrix, N, M);
// ввод элементов матрицы
for var i := 0 to N - 1 do
begin
for var j := 0 to M - 1 do
begin
Read(matrix[i, j]);
end;
end;
После инициализации матрицы, можем приступить к нахождению суммы и произведения элементов K-й строки. Для этого нужно сначала объявить и проинициализировать переменные sum и product:
sum := 0;
product := 1;
Затем, нужно пройти по всем элементам K-й строки матрицы и на каждом шаге обновлять значения sum и product:
for var j := 0 to M - 1 do
begin
sum := sum + matrix[K - 1, j];
product := product * matrix[K - 1, j];
end;
После завершения данного цикла, значения sum и product будут содержать сумму и произведение элементов K-й строки матрицы.
Для вывода результата на экран, нужно просто использовать функцию Writeln:
// вывод суммы и произведения
Writeln('Сумма элементов: ', sum);
Writeln('Произведение элементов: ', product);
Конечный вариант программы:
var
matrix: array of array of Integer;
N, M: Integer;
K, sum, product: Integer;
begin
// ввод значений N, M, K
Readln(N, M, K);
// выделение памяти для матрицы
SetLength(matrix, N, M);
// ввод элементов матрицы
for var i := 0 to N - 1 do
begin
for var j := 0 to M - 1 do
begin
Read(matrix[i, j]);
end;
end;
// нахождение суммы и произведения элементов K-й строки
sum := 0;
product := 1;
for var j := 0 to M - 1 do
begin
sum := sum + matrix[K - 1, j];
product := product * matrix[K - 1, j];
end;
// вывод суммы и произведения
Writeln('Сумма элементов: ', sum);
Writeln('Произведение элементов: ', product);
end.
