Дан массив из десяти целых чисел. Определите, сколько элементов этого массива имеют минимальное значение!!!(именно минимальное) составить...
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
//Версия 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
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.