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

Question

Информатика

Валерия

21 апреля, 14:49

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

+5

Ответы (1)

Знаете ответ?

Федотья · 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.