Pascal. Задача 4-10

Определить, сколько элементов одного знака находится в конце массива и какого они знака. Отдельно рассмотреть случай, когда в конце массива находятся нули.

Решение

Const
  N = 10;
var
  i, count, sign : integer;
  A : array[1..N] of integer;
begin
  for i := 1 to N do begin
      write('Введите A[', i, ']: ');
      read(A[i]);
    end;
    sign := A[N];
    count := 1;
  for i := 9 downto 1 do begin
      if (sign = 0) AND (A[i] = 0)  then Inc(count)
      else if (sign = 0) AND (A[i] <> 0) then break
           else if sign * A[i] > 0 then Inc(count)
                else break;
    end;
  if sign = 0 then writeln('В конце массива нулей: ', count)
  else begin
    write('В конце массива элементов одного знака: ', count);
    if sign > 0 then writeln('. Знак +')
    else writeln('. Знак -');
  end;
end.