Задан двухмерный массив. найти произведение элементов третьего столбца матрицы
Задан двухмерный массив. найти произведение элементов третьего столбца матрицы
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы