uses crt; var a:array[1..10] of integer; i,t,n:integer; s:real; begin clrscr; randomize; writeln ('Сколько цифр будет?'); readln(n); for i:=1 to n do begin a[i]:=random(10)+1; end; for i:=1 to n do begin write(a[i]:3); end; t:=1; for i:=1 to n do t:=t*a[i]; begin s:=exp((1/n)*Ln(t)); end; writeln; writeln('Среднее геометрическое = ',s:3:3); writeln('Ололо-ололо, я водитель НЛО!'); readln; end. Добавлено спустя 1 минуту 26 секунд: А вообще, используй для начала Google. Очень многие простые задачки легко находятся в два клика на этом форуме: http://www.cyberforum.ru/