EkKyl_2

Var
    N, PC: Integer; I, OS: LongInt;
    A: Array [1..100] Of LongInt;
Begin
    Repeat
        Write('Введите N - размер массива [2..100]: ');
        ReadLn(N);
    Until Not ((N > 100) Or (N < 2));
    WriteLn('Введите содержимое массива:');
    For I:= 1 To N Do Begin
        Write('A[', I, '] = ');
        ReadLn(A[I]);
        If (A[I] Mod 2) = 0 Then
            PC:= PC + 1
        Else
            OS:= OS + A[I];
    End;
    WriteLn('Количество четных чисел: ', PC);
    WriteLn('Сумма нечетных чисел: ', OS);
    ReadLn;
End.