var f:text; i, c:integer; count:byte; begin randomize; Assign(f, 'out.txt'); rewrite(f); count := 0; for i := 1 to 100 do begin c := random(21); if c = 0 then inc(count); write(f, c, ' '); end; close(f); writeln('Количество элементов равных 0 равно ', count); end.
var
f:text;
i, c:integer;
count:byte;
begin
randomize;
Assign(f, 'out.txt');
rewrite(f);
count := 0;
for i := 1 to 100 do
begin
c := random(21);
if c = 0 then
inc(count);
write(f, c, ' ');
end;
close(f);
writeln('Количество элементов равных 0 равно ', count);
end.