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

В одномерном массиве А подсчитать число положительных элементов, имеющих четный индекс. Отрицательные элементы массива заменить нулями (в паскале)
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы