случайным образом задан массив из 10 элементов. посчитать среднее арифметическое его элементов. сформировать второй массив из элементов первого, больших, чем среднее арифметическое элементов первого массива.

Const
   N = 10;
Var
   A,B:array[1..N] of integer;
   i,k:integer;
   Sr:real;
Begin
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(2*N+1)-N;
    Write(' ',A[i]);
    Sr:=Sr+A[i]
    End;
Sr:=Sr/N;
WriteLn;
WriteLn('Среднее арифметическое: ',Sr);
k:=0;
Write('Новый массив:');
For i:= 1 to N do
    if A[i]>Sr then
       Begin
       k:=k+1;
       B[k]:=A[i];
       Write(' ',B[k])
       End;
End.