program mas2_proiz_nech_max_dop_diag;

const n=5;

var

a:array[1..n,1..n]of integer;

i,j,p,s,m:integer;

begin

p:=1;

s:=0;

m:=-1;

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(100);

write(a[i,j]:4,' ');

//произведение нечетных элементов

if a[i,j] mod 2<>0 then

p:=p*a[i,j];

//сумма под главной диагональю

if i>j then

s:=s+a[i,j];

//максимальный на дополнительной диагонали

if (i=n+1-j)and(a[i,j]>m) then

m:=a[i,j];

end;

writeln;

end;

writeln('Произведение нечетных элементов 》 ',p);

writeln('Сумма под главной диагональю 》 ',s);

write('Максимальный на дополнительной диагонали 》 ',m)

end.