[BlackEric]

Винды нет, так что на пальцах.

Используешь вложенные циклы
var
i,j,s,p:integer;
A:array[1..10,1..6] of integer;
begin
s:=0;p:=1;

for i:=1 to 10 do //строки
for j:=1 to 6 do //столбцы
begin
read(A[i,j]);//ввод данных
if j=4 // номер столбца
then
if A[i,j]>0
then // элемент положительный
begin
s:=s+A[i,j];
p:=p*A[i,j];
end;
end;
writeln('p='+p);
writeln('s='+s);
end.

Для второй матрицы так аналогично...
Если что пиши. Я пока здесь, но винды нет только по памяти

var
i,j,s,p:integer;
B:array[1..5,1..8] of integer;
begin
s:=0;p:=1;

for i:=1 to 5 do //строки
for j:=1 to 8 do //столбцы
begin
read(B[i,j]);//ввод данных
if j=7 // номер столбца
then
if B[i,j]>5
then // элемент положительный
begin
s:=s+B[i,j];
p:=p*B[i,j];
end;
end;
writeln('p='+p);
writeln('s='+s);
end.

Вторая программа

[xden777]

К сожалению в аудитории меня спалили,но удов. поставили...
BlackEric, свой контакт кину в личку.
Спасибо.
Тема закрыта.