begin
var a := ArrRandom(10, 1, 9);
a.Println;
Println('Кол-во чисел, равных max:',
a.FindAll(p -> p = a.Max).Count)
end.
Ответ:
Б в а г потому что я это прошла
ето все просто, ето датчик
===== PascalABC.NET =====
begin
var (a, b, x) := ReadInteger3;
if x = 1 then
Print('Сумма', a + b)
else if x = 2 then
Print('Разность', a - b)
end.