Задание 444. Есть вложение.

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.