var
  i, j, n :integer;
  sr, sum :real;
  
  a :array [1..10] of real;

begin

  n:= 10;
  sum:= 0;
  write('Исходный массив:');
  for i:= 1 to n do
  begin
    readln(a[i]);
    write(a[i]:4);
    sum:= sum + a[i];
  end;
  
  sr:= sum/10;
  writeln(#13#10,'Среднее арифметическое массива: ',sr);
  j:= 1;
  for i:= 1 to n do
    if a[i] < sr then
      j:= i;
  for i:= j to n-1 do
    a[i]:= a[i+1];
  dec(n);
  
  write('Получившийся массив:');
  for i:= 1 to n do
    write(a[i]:4);
end.