Вопрос по информатике:
Здравствуйте! Помогите, пожалуйста, решить задачу по информатике в программе pascal ABC! Надо записать в файл 100 случайных чисел и посчитать сколько среди них нулей! Пожалуйста!
- 24.12.2017 07:58
- Информатика
- remove_red_eye 11625
- thumb_up 51
Ответы и объяснения 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.
- 25.12.2017 16:49
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.