Создать массив из 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]       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.