Пожалуйста, помогите!!! Задача 3 и 4!

Question

Пожалуйста, помогите!!! Задача 3 и 4!

---

Answer 1

Const
  n = 15;

var
  a: array[1..n] of integer;
  i, k: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  k := 0;
  for i := 1 to n do
  begin
    a[i] := Random(10) + 3;
    Write(a[i]:3);
    if (a[i] mod 2) = 0 then k := k + 1
  end;
  Writeln;
  Writeln('Количество четных элементов равно ', k)
end.

Тестовое решение:
Элементы массива
  9  3 12  4 12  4  7  8  3  5 10  7  8  7  4
Количество четных элементов равно 8

const
  n = 15;

var
  a: array[1..n] of integer;
  i, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  s := 0;
  for i := 1 to n do
  begin
    a[i] := Random(16) - 5;
    Write(a[i]:3);
    if a[i] < 0 then s := s + a[i]
  end;
  Writeln;
  Writeln('Суииа отрицательных элементов равна ', s)
end.

Тестовое решение:
Элементы массива
  0 -3 -5  8  8  9 10  5  9  1  3  6 -2  4 -2
Суииа отрицательных элементов равна -12