Question

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

Answer 1

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