Pascal. Задача 3-4

Пользователь вводит 10 целых чисел. Подсчитать и вывести, сколько среди них отрицательных, положительных чисел и сколько нулей.

Примечание: Постоянные значения лучше определять как константы специальным блоком, начинающимся со слова const. В программе этот блок расположен в самом начале, до объявления переменных. Например:


const
  N = 10;

Помимо прочего, использование констант, дает возможность задать его значение только один раз, тогда как в программе она может встречаться несколько раз. В этом случае не придется менять значение в разных местах программы.

Решение

const
  N = 10;
var
  i, a, positive, negative, zeros : integer;
begin
  positive := 0;
  negative := 0;
  zeros := 0;
  for i := 1 to N do begin
    write('Введите ', i, '-е число: ');
    read(a);
    if a = 0 then inc(zeros)
    else if a > 0 then inc(positive)
         else inc(negative);
  end;
  writeln('Положительных чисел: ', positive);
  writeln('Отрицательных чисел: ', negative);
  writeln('Нулей: ', zeros);
end.

◄▲►