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

Ответ:

##

var n := ReadInteger;

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

a.Println;

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

Объяснение: