Создать массив из 12 элементов на промежутке [-8; 10] вынести строчку…

const n=12; var a: array[1… n] of integer; i, count, s, max: integer; begin write ('Массив до: '); for i: =1 to n do begin a[i]: =random (19) — 8; write (a[i], '); if (a[i] > max) then max: =a[i]; if (a[i] > 3) then inc (count) else if (a[i] < 0) then begin s: =s+a[i]; a[i]: =i; end; end; writeln; write ('Массив после: '); for i: =1 to n do write (a[i], '); writeln; writeln ('1) Кол-во эл. В массиве, значения которых > 3: ', count); writeln ('2) Сумма всех отрицательных эл. Массива: ', s); writeln ('3) Макс. Элемент: ', max); end.