Подсчет чисел (Pascal)

AvariItigail

23 апреля 2016

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

Входные данные
Вводится число N, а затем N чисел.

Выходные данные
Необходимо вывести сначала число нулей, затем число положительных и отрицательных чисел.

Исходный код на языке Pascal

var
  n, a, i, k, l, m: integer;

begin
  k := 0;
  l := 0;
  m := 0;
  read(n);
  for i := 1 to n do 
  begin
    read(a);
    if (a = 0) then
      k := k + 1;
    if (a > 0) then
      l := l + 1;
    if (a < 0) then 
      m := m + 1;
  end;
  writeln(k, ' ', l, ' ', m, ' ');
end.