[lmikle]

Госпадя!!!
Сессия началась???

Код:

program MyAray;

{$APPTYPE CONSOLE}

var
  A : Array [1..100] Of Integer;
  N : Integer;
  I : Integer;
  S : Integer;
  M : Integer;
  F : Boolean;

begin
  Write('Введите длинну массива N = ');
  Readln(N);
  WriteLn('Введите элементы массива (целые числа):');
  For I := 1 To N Do
    Begin
      Write('A[',I,'] = ');
      Readln(A[i]);
    End;

  S := 0;
  M := 1;
  F := False;
  For I := 1 To N Do
    Begin
      Write(A[i],' ');
      If ((A[i] mod 2) = 0) And (A[i] > 0) Then // или ((I mod 2) = 0) And (A[i] > 0), если четность относится к номеру элемента
        Begin
           S := S + A[i];
           M := M * A[i];
           F := True;
        End;
    End;
  Writeln;

  If F Then
    Begin
      Writeln('Сумма положительных четных элементов S = ',S);
      Writeln('Произведение положительных четных элементов M = ',M);
    End
  Else
    Writeln('В массиве нет положительных четных элементов');
end;