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

Смотрите код:
[code lang=pascal]const
n=20;
var
a:array[1..n]of integer;
b,c:integer;
begin
for b:=1 to n do a[b]:=random(41)-20;
for b:=1 to n do write(a[b]:4);
writeln;
c:=1;
while(c<n)and((a[c] and 1)=0)do inc(c);
if c<=n then
begin
for b:=c to n do if odd(a[b])and(a[b]>a[c])then c:=b;
writeln('maximum odd elemtnts:=',a[c]);
end else writeln('no odd elemtnts');
c:=0;
for b:=1 to n do if a[b]<0 then c:=c+a[b];
writeln('summa negative elements:=',c);
end.[/code]
Удачи!