Динамический массив

[avatar54]

Для динамического массива подсчитать количество его элементов, больших среднего арифметического значения всех его положительных элементов

[Alex11223]

И? Это не автоматический решатель задач.

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

var p:array of integer;
    i,n,c:integer;
    sr:real;
begin
   Write('n = '); Readln(n);
   SetLength(p,n);
   Randomize;
   For i:=0 to n-1 do
   begin
      p[i]:=-10+Random(21);
      Write(p[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   c:=0;
   sr:=0;
   For i:=0 to n-1 do
      If p[i]>0 then
      begin
         c:=c+1;
         sr:=sr+p[i];
      end;
   sr:=sr/c;
   Writeln('sr = ',sr:8:5);
   c:=0;
   For i:=0 to n-1 do
      If p[i]>sr then
         c:=c+1;
   Writeln('itogo ',c);
   Readln;
end.