Question

дано N оценок (от 2 до 5). Сколько среди них двоек и четверок? Pascal ABC net​

Answer 1

##

var n := ReadInteger;

var a := ArrRandom(n, 2, 5);

a.Println;

Print('Двоек:', a.CountOf(2), '  четверок:', a.CountOf(4))