Question

В произвольном числовом массиве подсчитать количество положительных чисел и их сумму колличество отрицательных чисел и их произведение

Turbo pascal

Answer 1

Ответ:

const n = 10;

var a: array [1..n] of integer;

   i, kp, s, ko, p: integer;

begin

   randomize;

   p := 1;

   for i := 1 to n do

   begin

     a[i] := random(41) - 20;

     Write(a[i], ' ');

     if a[i] > 0 then

     begin

        kp := kp + 1; s := s + a[i];

     end

     else if a[i] < 0 then

     begin

       ko := ko + 1; p := p * a[i];    

     end;

   end;

   WriteLn;

   WriteLn('Количество положительных чисел: ', kp);

   WriteLn('Их сумма: ', s);

   WriteLn('Количество отрицательных чисел: ', ko);

   WriteLn('Их произведение: ', p);

end.

Объяснение: