Сгениратора случайных чисел получить 12 чисел из диапозона от 0 до 8 и вывести на экран только числа больше 5, а также подсчитать кол-во выведенных чисел. random
229
372
Ответы на вопрос:
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 dobegina[i]: =random(8); if a[i]> 5 then inc(k); end; writeln('kol-vo chisel bolsih za 5: ',k); for i: =1 to 12 doif a[i]> 5 then writeln(a[i]); readln; end.
20^20=2^20*10^20 байт= 2^10 ×2^10×10^20 байт=20^10×10^10 кбайт 2^25/2^3=2^22 байт= 2^2×2^20 байт=4 мбайт
Популярно: Информатика
-
LizaS040431.05.2021 08:42
-
DanilVOLK22812.03.2023 05:55
-
Kat1116619.08.2021 11:32
-
lizapustyreva0724.07.2021 23:26
-
Натальяроссия24.02.2021 13:45
-
анарка318.10.2020 18:50
-
Лапулька12313.07.2020 20:29
-
SmartGirl55528.05.2022 18:12
-
222111ALEXA11122221.05.2023 01:02
-
машкооо09.12.2020 13:58