var a:array [0..67] of integer;
i,m,n:integer;
begin
m:=-100;
for i:=0 to 67 do
begin
a[i]:=random(199)-99;
if ((a[i]>m) and (a[i] mod 2 <> 0)) then
begin
m:=a[i];
n:=i
end
end;
writeln (a);
writeln ('Максимальный нечётный элемент ',m,' и его номер ',n)
end.