. Программирование паскаль

Вариант с 1 и 10 в случайных числах :
Program SrOrif;
var Chislo: array [1..10] of real;
var CrOrf:real;
var Sch:integer;
begin
randomize;
for Sch:=1 to 10 do begin
Chislo[Sch]:=random(11);
if Chislo[Sch]=0 then Chislo[Sch]:=Chislo[Sch]+1;
end;
for Sch:=1 to 10 do begin
CrOrf:=Chislo[Sch]+CrOrf;
end;
for Sch:=1 to 10 do begin
Writeln('Число №',Sch,' = ',Chislo[Sch],';');
end;
CrOrf:=CrOrf/10;
Writeln('Среднее арифметическое 10 случайных чисел = ',CrOrf);
Readln();
end.
Вариант без 1 и 10 в случайных числах :
Program SrOrif;
var Chislo: array [1..10] of real;
var CrOrf:real;
var Sch:integer;
begin
randomize;
for Sch:=1 to 10 do begin
Chislo[Sch]:=random(10);
if Chislo[Sch]=0 then Chislo[Sch]:=Chislo[Sch]+2;
if Chislo[Sch]=1 then Chislo[Sch]:=Chislo[Sch]+1;
end;
for Sch:=1 to 10 do begin
CrOrf:=Chislo[Sch]+CrOrf;
end;
for Sch:=1 to 10 do begin
Writeln('Число №',Sch,' = ',Chislo[Sch],';');
end;
CrOrf:=CrOrf/10;
Writeln('Среднее арифметическое 10 случайных чисел = ',CrOrf);
Readln();
end.

Легко.

Среднее арифметическое - это сумма чисел, поделенная на их количество (у нас - на 10).
Мы будем в цикле генерировать числа по одному и прибавлять их к некоторой переменной S. После генерации всех чисел у нас будет их сумма.

Предлагаю действовать так:

1) заводим одну переменную для суммы, одну - для случайного числа и одну - для цикла:
var S, n, i: integer;
begin

2) в начале сумма равна нулю:
S:=0;

3) запускаем генератор случайных чисел:
Randomize;

4) запускаем цикл, повторять будем десять раз:
for i:=1 to 10 do
begin

5) в цикле генерируем число от 1 до 10. Random(10) выдает число от 0 до 9, поэтому надо еще прибавить 1:
n := Random(10)+1;

6) выводим это число. Отводим под число 3 знака, чтобы между числами от 1 до 10 был хотя бы один пробел:
write(n:3);

7) прибавляем к сумме наше число:
S := S + n;
end; {Конец цикла}

8) На текущий момент у нас выведены десять чисел. Теперь нам нужно перейти на новую строку:
WriteLn;

9) И, наконец, посчитать и вывести среднее арифметическое: сумму разделить на количество:
WriteLn('Среднее: ', S / 10);
end.

Сначала мы хотим поглядеть, как ты мучилась с написанием кода, но у тебя ничего не вышло.
(Код сюда, пжалста.)

Program DoSs;
var
i,s:integer;
n:real;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
write(a[i] , ' ; ');
end;
for i:=1 to 10 do
s:=s+a[i];
n:=s/10;
writeln('Среднееарифметическое ',n);
end.

где учишься если не секрет?