var

  a:array [1..100] of integer;

  i,n,k:integer;

begin

  write ('Razmer massiva: ');readln(n);

  k:=0; 

  for i:=1 to n do begin

    write ('A[',i,'] = ');readln(a[i]);

    if (a[i]>0) and (i mod 2 = 0) then k:=k+1;

  end;

  writeln ('Kol-vo: ',k);

  readln;

end.

a - массив из n элементов
k - количество четных индексов положительных элементов
i - цикловая переменная, также индекс элемента массива
Язык программирования: Паскаль

var
a : array [1..100] of integer;
n, k, i : integer;
begin
k := 0;
readln (n);
for i:=1 to n do
begin
readln (a [ i ]);
if (i mod 2 = 0) and (a [ i ] > 0) then
k := k + 1;
end;
writeln (k);
end.