Дан массив из 10 элементов,которые заполняются случайным образом.Найти: а)наименьший элемент б)сумму не положительных элементов в)произведение элементов,кратных 3.

я сделал рандомные числа от 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]