Решить задачу на языке Pascal. Дан массив LL, содержащий 12 элементов вещественного типа - положительных, отрицательных и равных нулю. Сосчитать количество ненулевых элементов массива и сформировать из них новый массив. Найти модуль сумы элементов нового массива. Индексацию элементов заданного массива начать с 0. Для перебора элементов массива использовать оператор While.

var

i, e: Integer;

s : Real;

LL : array [0 ... 11] of Real;

LL2 : array of Real;

begin

for i: = 0 to 11 do

LL[i] : = Random (101) - 100;

i : = 0;

e : = 0;

while i < = 11 do

begin

if LL[i] 0 then

begin

inc (e) ;

SetLength (LL2, e) ;

LL2[e-1] : = LL[i];

s : = s + LL[i];

end;

inc (i) ;

end;

Writeln ('Кол-во ненулевых элементов = ', e) ;

if s < 0 then s : = s * - 1;

Writeln ('Mодуль сумы элементов нового массива = ', s:0:3, #10#13) ;

for i : = 0 to e - 1 do

Write (LL2[i]:0:1, ' ') ;

ReadLn;

end.