Решите задачу плиз.....

Question

Решите задачу плиз.....

---

Answer 1

Program n_1;
var
a:array[1..10] of integer;
i,k:integer;
begin
k:=0
randomize;
for i:=1 to 10 do
begin
a[i]:=random(2);
if a[i]=1 then k:=k+1;
end;
writeln(k)
end.