Найти среднее арифметическое элементов массива с номерами от K до L включительно

var a,b :array[1..10000] of longint;
  k,l,j,i,n,sa :longint;
begin
  readln(n,k,l);
  for i:=1 to n do  {читаем масив }
   read(a[i]);
  for i:=k to l do
    sa:=sa+a[i];   {вычисляем суму чисел от к до л}
    sa:=sa div abs(l-k); {находим среднее арифметическое}
  writeln(sa);
end.

var a,b :array[1..10000] of longint;
  k,l,j,i,n :longint;
begin
  readln(n);
  for i:=1 to n do  {читаем масив }
   read(a[i]);
  for k:=1 to n do
   if a[k]<5 then b[k]:=2*a[k] else
   b[k]:=round(a[k]/2);  {round значит округлить до натурального чила }
  for k:=1 to n-1 do
  write(b[k],' '); {выводим масив b}
  writeln(b[n]);
end.

const
  N = 10;
  M = 10;
var
  Arr : array[1..M] of array[1..N] of integer;
  i, j : word;
begin
  for i := 1 to M do
    for j := 1 to N do
      Arr[i, j] := 10*i;
end;

var
  d : array[1..100,1..100] of longint;
  i,j,n,m : longint;
begin
  readln(m,n);
  for i := 1 to M do
    for j := 1 to N do
     d[i,j] := 10*i;
  for i:=1 to m do
  begin
   for j:=1 to n do
    write(d[i,j],' ');
     writeln(d[i,n]);
  end;
end.

var s,k,n,i:longint;
 Begin
 Readln(n);
 i:=1;
 while s<n do
 begin
  k:=i-1;
  s:=round((1+i)/ 2 *i);
 inc(i);
 end;
  s:=(1+i-2)div 2 *(i-2);
 Writeln(k,' ',s);
 
End.