program ff;
var A:array[1..100] of integer; {переменная массива}
    i,n,sum:integer; {переменные для циклов + переменная суммы}
 
begin
n:=30;     {размер массива}
sum:=0;    {обнуляем сумму}
{ниже задаём массив вычисляем сумму}
for i:=1 to n do begin A[i]:=1+random(29);  sum:=sum+A[i];   end;
 
write ('Vot massiv A:');
for i:=1 to n do write (A[i]:3); {выводим массив на экран}
writeln;
 
writeln('Sredniya arifmeticeskya: ',sum/30:0:2); {выводим результат на экран}
 
readln;
end.