POLANN_1_0

Var
    A: Array [1..20] Of Integer;
    I, Sum, OddSum: Integer;
Begin
    Randomize;
    Sum:= 0; OddSum:= 0;
    For I:= 1 To 20 Do Begin
        A[I]:= Integer(Random(116)) - 60;
        Write(A[I], ' ');
        If I Mod 2 = 0 Then
            Inc(Sum, A[I])
        Else
            Inc(OddSum, A[I]);
    End;
    WriteLn;
    If Sum > OddSum Then
        WriteLn('Сумма элементов с четными индексами больше')
    Else If Sum < OddSum Then
        WriteLn('Сумма элементов с нечетными индексами больше')
    Else
        WriteLn('Обе суммы равны.');
End.