В одномерном массиве А подсчитать число положительных элементов, имеющих четный индекс....

Question

В одномерном массиве А подсчитать число положительных элементов, имеющих четный индекс. Отрицательные элементы массива заменить нулями (в паскале)

Answer 1

Const
    N = 10;
var
    A : array [1..N] of Integer;
    i, count : Integer;
begin
    // здесь заполняешь массив

    for i := 1 to N do
    begin
        if ( i mod 2 = 0 ) and ( A[i] > 0 ) then inc(count);
        if A[i] < 0 then A[i] := 0;
    end;

end.