Нужно! pascal введите с клавиатуры одномерный массив p(t), элементами которого являются положительные и отрицательные числа. определите среднее арифметическое положительных чисел, наименьшее среди первых 9-ти чисел и частноеот деления наименьшего и среднего арифметического. сформируйте новый массив r(f), состоящий из элементов массива p(t), которые больше найденного частного.

Uses crt;
var p,r: array [1..10000] of real;
    x,y,t,f,k: integer;
    sum,sr,ch,min: real;
begin
     sum:=0; k:=0; f:=1;
     write('T='); readln(t);
     for x:=1 to t do
     begin
          write('p[',x,']:');
          readln(p[x]);
     end;
     min:=p[1];
     for x:=1 to t do
         if p[x]>0 then begin
            sum:=sum+p[x];
            inc(k);
         end;
     for x:=1 to 9 do
         if p[x]<min then min:=p[x];
     sr:=sum/k;
     ch:=min/sr;
     for x:=1 to t do
         if p[x]>ch then begin
            r[f]:=p[x];
            inc(f);
         end;
     writeln;
     for y:=1 to f-1 do
         writeln('r[',y,']:',r[y]);
     readln;
end.