я сделал рандомные числа от 0 до 100, если нужно можешь изменить, что бы заполнялся пользователем.

a[10],i,min,s,p:integer

randomize

for i=1 to 10 do 

a[i]:=random(101);

min:=a[i];

s:=0

p:=1

for i=1 to 10 do begin

if a[i]

min:=a[i];

if a[i]<0 then

s:=s+a[i];

if a[i] mod 3 = 0 then

p:=p*a[i];

end;

write('minimum=', min, ' summ=', s, ' umnosenie=', p);

end.