Составьте программку которая подсчитывает количество положительных частей одномерного

на паскале?

да

через 15 -20 минут сделаю,норм?

да

=)

заполнять массив рандомными числами либо юзер с клавы?

Type   massiv = array [1..1000] of integer;
var    arr : massiv; 
   i,n,s: integer;
begin  
   write('Введите кол-во элементов : ');
readln(n);  
   for i:=1 to n do       
 begin     
write('Введите ',i, ' элемент : ');
 readln(arr[i]); 
if arr[i]gt;0 then s:=s+1; 
 end;         
writeln('Количество положительных частей: ', s);
end.