Помогите , пожалуйста , написать программу по информатике (можно на Pascal или на C++)!
Количество минимумов
Найдите количество минимальных элементов в последовательности.
Входные данные
Вводится натуральное число N, а затем N чисел.
Выходные данные
Выведите количество минимальных элементов.
Например :
Мы вводим :
3
21
11
4
На выходе получаем : 1
Ответы
Ответ дал:
1
#include <iostream>
using namespace std;
void main(){
int N, a, min, cmin;
cin >> N;
cin >> min;
cmin = 1;
for(int i=1; i<N;i++){
cin >> a;
if(min==a)
cmin++;
if(min>a){
min = a;
cmin = 1;
}
}
cout << cmin;
}
Ответ дал:
1
Ответ:
PascalABC.NET (Обязательно .NET, используется библиотека классов .NET)
begin
var list: List<integer> := new List<integer>;
var N := ReadInteger();
for var i := 1 to N do
begin
list.Add(ReadInteger());
end;
list.Where(x -> x = list.Min()).Count.Println();
end.
Объяснение:
RandGor:
Просили Pascal а не PascalABC.NET
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад