Вопрос по информатике:
С помощью гениратора случайных чисел получить 12 чисел из диапозона от 0 до 8 и вывести на экран только числа больше 5, а также подсчитать кол-во выведенных чисел. Random
- 25.01.2018 08:03
- Информатика
- remove_red_eye 10575
- thumb_up 105
Ответы и объяснения 1
FPC IDE 2.6.0.
Только тут какой-то китайский рандом, и числа больше 8 только 6 выдает, но проверял алгоритм работает верно.
var a:array[1..12] of integer; i,k:integer;
begin k:=0;
for i:=1 to 12 do
begin
a[i]:=random(8);
if a[i]>5 then inc(k);
end;
writeln('Kol-vo chisel bolsih za 5: ',k);
for i:=1 to 12 do
if a[i]>5 then writeln(a[i]);
readln;
end.
- 26.01.2018 04:56
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.