Дан массив вещественных чисел.Определить сколько раз встречается в массиве 0.

Const   N = 33;Var   A:array[1..N] of real;   i,k:integer;BeginRandomize;k:=0;For i:= 1 to N do    Begin    if random(2) = 1 then A[i]:=random*N    else A[i]:=0;    Write(A[i]:0:3,' ');    if A[i] = 0 then k:=k+1    End;WriteLn;WriteLn('Количество нулей в массиве: ',k);ReadLnEnd.