POLANN_4

Var
    A: Array [1..100] Of Integer;
    I, MNP, PC: Integer;
Begin
    Randomize;
    For I:= 1 To 100 Do Begin
        A[I]:= Integer(Random(100)) - 50;
        Write(A[I], ' ');
    End;
    For I:= 1 To 100 Do Begin
        If A[I] Mod 2 = 0 Then
            PC:= PC + 1
        Else
            If MNP < A[I] Then MNP:= A[I];
    End;
    WriteLn('Количество четных чисел: ', PC);
    WriteLn('Наибольшее нечетное число: ', MNP);
    ReadLn;
End.