Question

ПОМОГИТЕ!!! СРОЧНО НУЖНО!PASCAl

Введите с клавиатуры одномерный массив P(T), элементами которого являются положительные и отрицательные числа. Определите среднее арифметическое положительных чисел, наименьшее среди первых 9-ти чисел и частноеот деления наименьшего и среднего арифметического. Сформируйте новый массив R(F), состоящий из элементов массива P(T), которые больше найденного частного.

Answer 1

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.