Question

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

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.