Дано число 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.
Не нашли ответ?
Похожие вопросы