Ответ:

pascal

Объяснение:

const n = 11;

var a: array[1..n] of integer;

   i, k: integer;

begin

 for i := 1 to n do begin

   Write('A[', i, '] = '); ReadLn(a[i]);

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

 end;

 WriteLn('Количество положительных элементов, стоящих на четных местах, равно ', k);

end.