1.
const n=15;
var b : array[1..n] of integer; 
    sum,i : integer;
begin
Randomize; 
for i:=1 to n do
 begin
   b[i]:=random(51); 
   write(b[i]:4);  
  end;
writeln;
sum:=0;
for i:=1 to n do sum:=sum+b[i]; 
writeln('sr = ',sum/n:5:2); 
end.

Пример работы программы:
   2  40  18  33  21  20  14  29  12  22  47  13  18  22  25
sr = 22.40

2.
const n=15;
var a : array[1..n] of integer; 
    max,k,i : integer;
begin
Randomize; 
for i:=1 to n do
 begin
   a[i]:=random(51)+10; 
   write(a[i]:4);  
  end;
writeln;
max:=a[1]; k:=1;
for i:=1 to n do 
 if a[i]>max then begin max:=a[i];k:=i; end;; 
writeln('Победил спортсмен с номером ',k,', его результат=',max); 
end.

Пример работы программы:
  50  53  17  47  30  24  46  42  18  13  40  23  26  30  27
Победил спортсмен с номером 2, его результат=53