Uses CRT;
Type Tablou:=Array[1..100]of real;
var x:tablou;
j,h:integer
med,s:real;
begin
writeln("de 100 de valori");
for i:=to 100 do
readln(x[i]);
end;
begin writeln("tabloul");
for i:=1 to 100 do
write (x[i]:7:2)
end;
begin
S:=0
for i:=1 to 100 do
S:=S+A[i]
Med:=S/100
end:
Begin
media(x) writeln("media=",med);
end.