Решить задачу на языке Pascal. Дан массив LL, содержащий 12 элементов вещественного…

var i, e: Integer; s: Real; LL: array [0… 11] of Real; LL2: array of Real; beginfor 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.