Pascal. Задача 8-15

var
  i, sum, cnt : integer;
  a : array[1..10] of integer = (-2, 4 , 6, -3, 7, 9, 5, 8, 0, -1);
begin
  cnt := 0;
  sum := 0;
  for i := 2 to 10 do begin
    if a[i] > 0 then sum := sum + a[i]
    else Inc(cnt);
  end;
  Writeln('Сумма положительных элементов: ', sum, ' Количествоотрицательных элементов: ', cnt);
end.