массив К4 содержит 10 элементов вещественного типа-положительных,отрицательных и равных 0.сосчитать количество отрицательных элементов массива и вывести сумму их модулей

1

Ответы и объяснения

2013-01-16T19:46:32+04:00

var

  K4 : array [1..10] of real;

  sum : real;

  i, count : integer;

begin

  for i := 1 to 10 do read (K4[i]);

  for i := 1 to 10 do

   if k4[i] < 0 then

    begin

      sum := sum - k4[i]; //Т.к. нужен модуль пишем минус

      count:=count+1; 

    end;

  writeln ('Сумма модулей', count, 'отрицательных чисел равна ', sum);

end.