01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Вычислить произведение положительных элементов каждого столбца массива

program ex3;
{задан массив y[5,4]. Вычислить произведение положительных элеиентов
каждого столбца массива. Распечатать результаты.}
var i,j,p,w: integer;
var y: array[1..5,1..4] of integer;
begin
writeln('Введите исходную матрицу');
for i:=1 to 5 do
for j:=1 to 4 do read(y[i,j]);
writeln('Исходная матрица');
for i:=1 to 5 do
begin
for j:=1 to 4 do write(y[i,j]:4);
writeln
end;
writeln('Результаты');
for j:=1 to 4 do
begin
p:=1;
for i:=1 to 5 do
begin
w:=y[i,j]; if w>0 then p:=p*w
end;
write(p:4)
end;
writeln
end.