Задание:
С помощью гениратора случайных чисел получить 12 чисел из диапозона от 0 до 8 и вывести на экран только числа больше 5, а также подсчитать кол-вовыведенных чисел. Random
Решение:
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.
Знаете другой ответ?