задан двухмерный массив. найти произведение элементов третьего столбца матрицы
Answers & Comments
therealcf2014
Const m=5; n=4; var mas: array[1..m,1..n] of integer; i, j, mult: integer; begin for i:=1 to m do for j:=1 to n do begin write('mas[', i, ',', j, '] = '); readln(mas[i,j]); end; for i:=1 to m do begin for j:=1 to n do write(mas[i, j], ' '); writeln; end; mult:=1; for i:=1 to m do mult:=mult*mas[i,3]; writeln('Произведение 3-го столбца массива = ', mult) end.
Answers & Comments
m=5;
n=4;
var
mas: array[1..m,1..n] of integer;
i, j, mult: integer;
begin
for i:=1 to m do
for j:=1 to n do
begin
write('mas[', i, ',', j, '] = ');
readln(mas[i,j]);
end;
for i:=1 to m do
begin
for j:=1 to n do
write(mas[i, j], ' ');
writeln;
end;
mult:=1;
for i:=1 to m do
mult:=mult*mas[i,3];
writeln('Произведение 3-го столбца массива = ', mult)
end.