дан массив положительных и отрицательных чисел. Вывести количество положительных и отрицательных чисел, стоящих на нечетных местах. Срочно!!!

var
  k, sum, n, i: integer;
  A: array of integer;
begin
  writeln(Введите размерность массива: );
  readln(n);
  SetLength(A, n + 1);
  writeln(Введите , n, элементов массива :);
  for i := 1 to n do
  begin
    readln(A[i]);
    if i mod 2 <> 0 then
    begin
      if A[i] > 0 then inc(sum);
      if A[i] < 0 then inc(k);
    end;
  end;
  writeln(Кол-во положительных чисел, стоящих на нечетных местах: , sum);
  writeln(Кол-во отрицательных чисел, стоящих на нечетных местах: , k);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.