var v: array [1..50] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 50 do
v[i]:=random(50);
if v[i]=0 then
k:=k+1;
write(k);
end.
Объяснение:
var v: array [1..50] of integer;
k,i:integer;
begin
randomize;
for i:=1 to 50 do
v[i]:=random(50);
for i:=1 to 50 do
if v[i]=0 then
k:=k+1;
write(k);
end.
Объяснение: