Определить количество нулей в одномерном заданном массиве

program Mass;
uses crt;
const 
 n=10;
Type 
  Tmas = array[1..n] of integer;
var a:Tmas;
     i,j,k:integer;
Randomize
for i:=1 to n do 
for j:=1 to n do 
a[i,j]:=random(-4+6);
k:=0; //Инициализация счётчика нулевых эелемнтов
for i:=1 to n do 
for j:=1 to n do 
 if a[i,j]<0 then inc(k);
writeln(k);
end;

program Mass;
uses crt;
const
n=10;
Type
Tmas = array[1..n] of integer;
var a:Tmas;
i,k:integer;
Randomize
for i:=1 to n do
a[i]:=random(-4+6);
k:=0; //Инициализация счётчика нулевых эелемнтов
for i:=1 to n do
if a[i]<0 then inc(k);
writeln(k);
end;

program Mass;
uses crt;
const
n=10;
Type
Tmas = array[1..n] of integer;
var a:Tmas;
i,k:integer;
begin
Randomize;
for i:=1 to n do
 a[i]:=random(7)-3;
for i:=1 to n do
 write(a[i]:4);
writeln;
k:=0; //Инициализация счётчика нулевых эелемнтов
for i:=1 to n do
 if a[i]=0 then inc(k);
writeln(k);
readln
end.