Тема: Двовимірні масиви
Заданий двовимірний масив (n×m) цілих чисел. У кожному його
стовпці знайти суму непарних елементів.
Прога не працює, допоможіть виправити код
program lab7;
const n=3;m=4;
type
mas=array[1..n,1..m] of integer;
var a:mas;
i,j,d:integer;
begin
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
d:=1;
for i:=1 to n do
for j:=1 to m do begin
if (a[i,j])<0 then d:=d*a[i,j];
end;
writeln('Dobutok negative',d);
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
end.