Question

Помогите, пожалуйста: найти сумму положительных элементов массива М из 22 элементов, имеющих четные номера (нумерация элементов массива начинается с единицы) спасибо 

Answer 1

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