Решить по информатике в программе pascal abc! надо записать в файл 100 случайных чисел и посчитать сколько среди них нулей! !

КириллАлек КириллАлек    2   19.05.2019 15:00    0

Ответы
Alisa66611 Alisa66611  12.06.2020 18:57

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика