program ab;
uses crt;
const n=10;
var a: array [1..n] of integer;
    i,k,s,min_i:integer;
    ser:real;
begin
   clrscr;
   randomize;
   s:=0;
     for i:=1 to n do
       begin
         a[i]:=random(10)+1;
         s:=s+a[i];
       end;
   writeln ('Елементи масиву: ');
     for i:=1 to n do write (a[i]:3);
   writeln;
   ser:=s/n;
   writeln ('Середнє арифметичне елементів масиву: ');
   writeln (ser:3:1);
   min_i := 1;
     for i:=1 to n do
       begin
         if abs(a[i] - ser) < abs(a[min_i] - ser) then min_i := i;
       end;
   writeln ('Елемент, який найменьше віддалений від середнього арифметичного: ');
   writeln (min_i:3);
end.