Question

Дано число k (0 < k < 11) и матрица размера 4 x 10. Найти сумму и произведение элементов k-го столбца данной матрицы. Помогите пожалуйста, нужно написать программу в Паскале

Answer 1

var
j,i,k,sum,proizv: integer;
A: array [1..4,1..10] of integer;
begin
proizv:=1;
randomize;
writeln('Матрица: ');
for i:=1 to 4 do
 for j:=1 to 10 do
  A[i,j]:=random(21)-10;
for i:=1 to 4 do
 begin
 for j:=1 to 10 do
  write(A[i,j]:5);
  writeln;
  writeln;
 end;
writeln('Введите К: ');
read(k);
for i:=1 to 4 do
 begin
 sum:=sum+A[i,k];
 proizv:=proizv*A[i,k];
 end;
writeln('Cумма чисел ',k,'-ого столбца: ',sum);
writeln('Произведение чисел ',k,'-ого столбца: ',proizv);  
end.