[SakaE]

napster_X,
В условиях недостаточности данных смог сделать только

ЭТО:

Program laba3;
Var m:array[1..3,1..5] of integer;
	max,u,P:real;
	i,j,jmax,tempJ,t:integer;
begin
	writeln('введите матрицу 3x5');
	for i:=1 to 3 do for j:=1 to 5 do read(m[i,j]);
	for i:=1 to 3 do begin
	for j:=1 to 5 do write(' ',m[i,j]); writeln;
end;
max:=-100;
j:=2;
		for i:=1 to 3 do
			if(m[i,j]>=max) then
				begin
					if j<5 then 
						begin
							max:=m[i,j];
							jmax:=j;
						end;
						j:=j+2;
				end;
			 
	writeln('j max  ',max:4:2);

begin
p:=1;
	for i:=1 to 3 do for j:=4 to 4 do 
	begin
		P:=P*((1+cos(1-1/m[1,4]))+8.3)*((1+cos(1-1/m[2,4]))+8.3);
		P:=P*((1+cos(1-1/m[3,4]))+8.3)*((1+cos(1-1/m[3,5]))+8.3);
	end;
	writeln(' P= ',P);
end;
for i:=1 to 3 do begin

	t:=jmax;
	jmax:=m[3,5];
	m[3,5]:=t;
	writeln('¬*бЁў б §*¬Ґ**®©');
	readln;
end;
end.

наибольший элемент вроде находит. Произведение чего на что должен он находить я не понял, в любом случае m[4,4] в твоем варианте неверно - такого элемента просто не существует в массиве в котором предел m[3,5]. В строке перемножения у меня отладчик ругался на две вещи:
1) во первых, у тебя P:int , а ты ему вот так пытался присвоить real значение
2) длина строки, уж не знаю как в твоем отладчике, но для моего отладчика строка показалась длинноватой поменял - если не нравится, исправь

P.S.-если что не так, ко мне никаких претензий - я вообще за паскаль сел первый раз за несколько последних лет