Здравствуйте, maxim387!

Смотрите приложенние:
[code lang=pascal h=200]const
n=5;
m=5;
var
a:array[1..n,1..m]of integer;
i,j,x,y:integer;
begin
{ввод матрицы}
for i:=1 to n do
for j:=1 to m-1 do
begin
write('enter a[',i,',',j,']:=');
readln(a[i,j]);
end;
{задание 1}
for i:=1 to n do
begin
a[i,m]:=1;
for j:=1 to m-1 do
if not odd(a[i,j]) then a[i,m]:=a[i,m]*a[i,j];
end;
{вывод по первому заданию}
writeln('number 1:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
{задание 2}
for i:=1 to n do
begin
x:=1;
y:=1;
for j:=2 to m do
begin
if a[i,x]>a[i,j]then x:=j;
if a[i,y]<a[i,j]then y:=j;
end;
j:=a[i,x];
a[i,x]:=a[i,y];
a[i,y]:=j;
end;
{вывод по второму заданию}
writeln('number 2:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
{задание 3}
if n=m then
for i:=1 to n div 2 do
for j:=i to n-i do
begin
x:=a[i,j];
a[i,j]:=a[n-j+1,i];
a[n-j+1,i]:=a[n-i+1,n-j+1];
a[n-i+1,n-j+1]:=a[j,n-i+1];
a[j,n-i+1]:=x;
end
else writeln('error:wrong matrix size!');
{вывод по третьему заданию}
writeln('number 3:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
end.[/code]
Третье задание не имеет смысла, если N<>M.
ps:вопросы задавайте в минифоруме.
Удачи!