{ Сост. программу определения сред. ариф. таб. а}

uses crt;
var a : array [1..10] of integer;
    s       : real;
    sum,n,i : integer;
begin
    clrscr;
    write('n=');readln(n);
    for i:=1 to n do
    begin
     write('a[',i,']=');
     readln(a[i]);
    end;
    sum:=0;
    for i:=1 to n do
    sum:=sum+a[i];
    s:=sum/n;
    writeln('ср ариф= ',s);
    readln;
end.