Решите ! надо! вводится 100 чисел. найти количество чисел, равных максимальному и количество чисел, равных минимальному. паскаль
aarchery
2
02.10.2019 13:30
2
Другие вопросы по теме Информатика
ШимериШайн
31.07.2019 11:00
superasmik2018
31.07.2019 11:00
Матемитик111111111
31.07.2019 11:00
Плаоцтвтч
21.01.2021 12:46
diana03veremi
19.07.2019 06:30
klemiatoeva
27.04.2021 23:41
ikonnikoval
27.04.2021 23:38
Sadovnik11
10.03.2019 05:40
этофиаскобратан4
10.03.2019 05:40
Популярные вопросы
- 1. что было главной особенностью развития художественной культуры россии в первой...
1 - Руководителю торгового предприятия шалейникову и.и. дали ложные сведения о нарушении...
3 - Дана арифмет.прогрессия.найти s35,если s15=20,s20=15 с объяснением...
2 - Какие черты древнеиндийского быта показались вам необычными?...
1 - Летит орлица по синему небу, крылья распластала запятая солнышко застала.( туча)...
2 - Какое односоставное предложение обычно употребляется в начале художественных описаний...
1 - Решите графически уравнение: x^2=4; и неравенства: x^2 4; x^2 4....
2 - Выпишите грамматическую основу предложения. 1) всегда был ему по душе этот старинный...
1 - 1. плотина реки или 2. характер течения реки или 3. режим реки или...
2 - За отвечает левое и правое полушарие головного мозга?...
3
begin
var a := ReadArrInteger(100);
var (min, max) := (a.Min, a.Max);
Writeln('Чисел, равных минимальному: ', a.Where(t -> t = min).Count);
Writeln('Чисел, равных максимальному: ', a.Where(t -> t = max).Count)
end.