Здравствуйте! Помогите, пожалуйста, решить задачу по информатике в программе pascal ABC!...

Question

Здравствуйте! Помогите, пожалуйста, решить задачу по информатике в программе pascal ABC! Надо записать в файл 100 случайных чисел и посчитать сколько среди них нулей! Пожалуйста!

Answer 1

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.