Введите с клавиатуры массив k3{n} определите сумму и количество положительных элементов массива. n вводится с клавиатуры. 0 Написать в pascalABC

Question

Информатика

Дионосий

1 марта, 00:42

Введите с клавиатуры массив k3{n} определите сумму и количество положительных элементов массива. n вводится с клавиатуры. 0 Написать в pascalABC

+5

Ответы (1)

Знаете ответ на вопрос?

Рахи · Answer 1

begin

var k3 : = ReadArrInteger ('Вводите', ReadInteger ('n=')) ;

var (sum, n) : = (0, 0) ;

for var i : = 0 to k3. Length - 1 do

begin

if (k3[i] > 0) then

begin

n + = 1;

sum + = k3[i];

end;

end;

println ('Sum = ', sum, 'n = ', n) ;

end.