В каждой строке матрицы найти произведение элементов слева от нулевого

Анатолийсмауг

Задана матрица Z(4,5). В каждой строке найти произведение элементов, расположенных слева от первого нулевого и их количество. Этим количеством заменить первый нулевой элемент, а произведение записать в массив В. Помогите решить.
1 ответ

Анатолийсмауг

var A:Array[1..4, 1.. 5] of integer;B,C:Array[1..4] of integer;
i,j,k,q,p:integer;
begin
for i:= 1 to 4 do
begin
p:=1;
for j:= 1 to 5 do
begin
A[i,j] := random(10)-2;
write(A[i,j]:4);
if (A[i,j]<> 0) and (k =0) then begin
p:= p * A[i,j]; q:= q +1;end
else k:=1;
end;
writeln;
B[i]:= p;C[i]:= q;
k:=0;q:=0;
end;writeln;writeln;
for i:= 1 to 4 do
writeln(i:4,B[i]:6,C[i]:4 );
end.