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

Question

Информатика

Лонгин

29 февраля, 07:32

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

+4

Ответы (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.