var a:array[1..100] of integer; n,i:integer; avg,med:real;beginwriteln('Dati numarul de valori:');readln(n);writeln('Dati valorile');for i:=1 to n dobeginwrite('Val ',i,' =');readln(a[i]);end;for i:=1 to n doavg:=avg+a[i];med:=avg/n;writeln('Media aritmetica este: ',med:4:4);end.