помогите срочно.в паскале выяснить количество минимальных элементов в массиве a в интервале(-100;100).элементов 15
Ответы
Ответ дал:
0
begin
var a := ArrRandom(15, -100, 100); a.Println;
var Min := a[0];
var Count := 1;
for var i := 1 to a.High do
if a[i] = Min then Count += 1
else if a[i] < Min then begin Min := a[i]; Count := 1 end;
Print($'Min = {Min}, Count = {Count}')
end.
Приложения:
![](https://st.uroker.com/files/c52/c5222dfbd996f30fe4a363f923d9af96.png)
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад