Question

5. Напишите программу, которая сформирует массив из n случайных чисел из промежутка [-5, 5]. Сколько элементов массива совпадают с минимальным значением.​

Answer 1

PascalАВС.NЕТ 9.3

##

var n := ReadInteger;

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

a.Println;

var min := a.Min;

a.Count(t -> t = min).Print