Дан массив размерностью 10 вычислить количество отрицательных элементов

var i, min:integer;

a:array[1 ... 10] of integer;

begin

randomize;

for i:=1 to 10 do begin

a[i]:=random (45) - 22;

write (a[i],' ') ;

end;

writeln;

for i:=1 to 10 do begin

if a[i]<0 then min: = min+1;

end;

writeln ('Количество отрицательных элементов:', min) ;

end.