program q171378460;
var
i, j, n, m, k, p: integer;
a: array [1..100, 1..100] of integer;
begin
Write('M = ');
ReadLn(m);
Write('N = ');
ReadLn(n);
for i := 1 to m do
begin
for j := 1 to n do
begin
Write('a[', i, ', ', j, '] = ');
ReadLn(a[i, j]);
end;
end;
for i := 1 to m do
begin
k := 0;
p := 1;
for j := 1 to n do
begin
if a[i, j] >= 0 then
begin
Inc(k);
p := p * a[i, j];
end
else
Break;
end;
if k = n then
WriteLn('Строка: ', i, '; Произведение: ', p);
end;
ReadLn;
end.
Полное задание и язык программирования под большим секретом?
if a <> abs(a) then....запоминаем строку, если где-то в цикле нашлось отриц число, идем к другой строке, если отриц нет - делаем произведение во вложенном цикле, пишем в массив, идем дальше...