Дан массив из десяти целых чисел. Определите, сколько элементов этого массива имеют...

Question

Дан массив из десяти целых чисел. Определите, сколько элементов этого массива имеют минимальное значение!!!(именно минимальное) составить...

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var a:=ReadArrInteger(10); 
  Println('Количество минимальных:',a.Where(t->t=a.Min).Count)
end.

Пример:
1 4 5 1 3 4 7 1 5 2
Количество минимальных: 3 

Comments

У меня код PascalABC.NET

---

Эхх

---

ar i,min: Integer;
mas:array[1..10] of Integer ;
begin
min:=mas[1];
Randomize();
for i:=1 to 10 do
begin
mas[i]:=Random(20);
write(' ',mas[i]);
if(mas[i]end;
WriteLn();
writeln('minimal ',min);
end.

---

Похоже на правду в Free

---

Ну да, находите минимальное

---

Потом считаете сколько элементов равны минимальному

---

Спасибо огромное!!!…

---

for i:=1 to 10 do

---

if a[i]=min then count:=count+1;

---

Вот так