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

1) подсчитать количество элементов в массиве, значения которых больше 3.

2) найти сумму всех отрицательных элементов массива.

3) заменить все отрицательные элементы массива их индексами. вывести новый массив на экран

4) найти максимальный элемент

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.