составьте программу которая заполняет массив а[1..10] заполните случайными целыми числами в диапазоне от 0 до 2 и выводит количество элементов,равных 1.

Program enot;Var a: array[1..10] of integer;i,k:integer;beginfor i:= 1 to 10 doa[i]:= random (2);for i:= 1 to 10 do if a[i]=1 then k:=k+1; write(k); end.