С помощью гениратора случайных чисел получить 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 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.