EvCr_1

Var
    A: Array [1..20] Of Integer;
    I, LPN, NC: Integer;
Begin
    Randomize;
    For I:= 1 To 20 Do Begin
      A[I]:= Integer(Random(101)) - 50;
      WriteLn(A[I]);
      If A[I] Mod 2 = 0 Then LPN:= I;
    End;
    For I:= 1 To LPN - 1 Do If A[I] < 0 Then NC:= NC + 1;
    WriteLn('Позиция последнего четного элемента: ', LPN);
    WriteLn('Количество отрицательных чисел до ', LPN, ' элемента: ', NC);
    ReadLn;
End.