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

Question

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

Comments

А массив как задан?

---

задать надо самому

---

Для ввода массива использовать чтение с клавиатуры или задание с помощью случайных чисел? Я это имела в виду.

---

с клавиатуры

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.