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

Дано число k (0 < k < 11) и матрица размера 4 x 10. Найти сумму и произведение элементов k-го столбца данной матрицы. Помогите пожалуйста, нужно написать программу в Паскале
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы