Предмет: Информатика,
автор: 89112948751
Дан массив из десяти целых чисел. Определите, сколько элементов этого массива имеют минимальное значение!!!(именно минимальное) составить...
Ответы
Автор ответа:
2
//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
//Версия 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
Giammy:
У меня код 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.
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;
Вот так
Похожие вопросы
Предмет: Английский язык,
автор: rivnadiana
Предмет: Математика,
автор: sikovayaliza
Предмет: Английский язык,
автор: ajgulrustemova1976
Предмет: Математика,
автор: yanakotik20
Предмет: Математика,
автор: ИLюша