Определить среднее арифметическое элементов одномерного массива

{1. Определить среднее арифметическое элементов одномерного массива с k1-го до k2-й.}
Program S9;
 
Const
    N = 10;
 
Var
    A:Array[0..N] Of Integer;
    i,k1,k2,Sum,M:Integer;{M - это число элементов то k1 до k2}
    Resultat:Real;
Begin
Randomize;
Sum:=0;
M:=0;
{Заполняем случайным образом массив и выводим на экран}
For i:=0 To N Do
    Begin
        A[i]:=Random(10);
        Write(A[i],'  ');
    End;
WriteLn;    
WriteLn('Please enter k1,k2');
ReadLn(k1,k2);
 
If k1 > k2 Then WriteLn('Error: k1 > k2!!!!')
    Else
For i:=k1 To k2 Do
Begin
    Sum:=Sum + A[i];
    Inc(M);
End;
 
Resultat:=Sum/M;
 
WriteLn('Resultat: ',Resultat:6:3);
ReadLn;
End.

{2. Дан одномерный массив вещественных чисел. Вывести на экран новое состояние массива, 
в котором все элементы с нечетными номерами увеличить на 1, с четными - уменьшить на 1}
Program S9;
 
Const
    N = 10;
 
Var
    A:Array[0..N] Of Real;
    i:Integer;
Begin
    For i:=0 To N Do
        ReadLn(A[i]);{Вводим массив с клавиатуры}
        
    For i:=0 To N Do
        If Odd(i) Then
            Begin
                A[i]:=A[i] - 1.0;
                Write(A[i]:6:3,' ');
            End
        Else
            Begin
                A[i]:=A[i] + 1.0;
                Write(A[i]:6:3,' ');
            End;
    ReadLn;
End.

{3. Дан массив целых чисел. Найти сумму элементов, кратных заданному числу.}
Program S9;
 
Const
    N = 10;
 
Var
    A:Array[0..N] Of Integer;
    i,Sum,L:Integer;
Begin
    Sum:=0;
    For i:=0 To N Do
        ReadLn(A[i]);{Вводим массив с клавиатуры}
WriteLn('Please enter L');
ReadLn(L);      
    For i:=0 To N Do
        If A[i] Mod L = 0 Then
            Sum:=Sum+A[i];
    WriteLn('Summa = ',Sum);
    ReadLn;
End.