//PascalABC.NET v3.3 1633
var a: array [0..67] of integer;
begin
for var i:=0 to 67 do
a[i]:=random(0, 9);
write('Исходный массив: ');
a.PrintLn(', ');
var maxIndex:=0;
for var i:=0 to 67 do
if (a[i] mod 2 <> 0) and (a[i] > a[maxIndex]) then
maxIndex:=i;
writeln('Максимальный нечетный элемент: A['+maxIndex+'] = '+a[maxIndex]);
end.