Массив К4 содержит 10 элементов вещественного типа-положительных, отрицательных и…

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.