PascalABC.NET. Нужно создать программу которая вычислит сколько в выборке отрицательных чисел. Помогите пожалуйста!

Либо так (проверь)
const N =4;type  TMas = array[1..N] of byte; procedure InitMass(var M : TMas);var i:integer;begin  for i:=1 to N do M[i] := 1;end; procedure PrintMas(const M : TMas);var i:integer;begin for i:=1 to N do Write(M[i]); WriteLn;end; function IsFinish(const M : TMas) : boolean;var i:integer;begin  IsFinish := false;  for i:=1 to N do if M[i]  IsFinish := true;end; procedure AddOne(var M : TMas);var i,c : integer;begin  c := 1;  for i:=N downto 1 do begin    M[i] := M[i] + c;    c := (M[i]-1)  div N;    if M[i]>N then M[i] := M[i] mod N;  end;end;   var mass : TMas;begin WriteLn(-----------------------------------------------------); InitMass(mass); PrintMas(mass);  while Not IsFinish(mass) do begin   AddOne(mass);   PrintMas(mass); end; WriteLn(Done.)end. (взял с сайта)

Либо так.
var
n,x:integer;
begin
n:=0;
repeat
readln(x);
if x<0 then inc(n);
until x=0;
write(kol-vo=,n);
end. (написал сам)

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