{ Дана вещ. таблица a[1..n]. Найти кол-во отрицательных элементов таблицы. }

uses crt;
var k,n,i : longint;
a: array [1..10] of longint;
begin
  clrscr;
  write('n = ');readln(n);
  for i:=1 to n do
begin
    write('a[',i,']=');readln(a[i]);
end;
  for i:=1 to n do
  if a[i]<0 then inc(k);
  write('k = ',k);
  readln;
end.