Эх помню себя студентом тоже лень было делать эти задачки)
Program Summa;
var
a: array [1..50] of Integer;
i: Integer;
sum: Integer;
begin
sum:=0;
for i := 1 to 50 do
begin
a[i] := random(100)-50;
write(a[i],' ');
if (a[i]<0) and (a[i] mod 2<>0) then
sum:=sum+a[i];
end;
WriteLn();
WriteLn('Сумма* = ', sum);
readln();
end.