1.Найти минимальный элемент последовательности.
2.Определить, сколько раз встречается максимальный элемент в последовательности.
Две разные не совмещенные задачи, нужно написать на Pascal.
Аноним:
Первую задачку можно понять хоть и она кратко описана, но вторую нельзя: тоисть как понять какой элемент для вас являетса максимумом в большенстве случаев он или один или начинают щитать количество максимумов с конца и до какой-то отметки после которой идет только числаменее максимума.
Ответы
Ответ дал:
0
===== PascalABC.NET =====
- 1 -
begin
var n := ReadInteger('Длина последовательности:');
ReadSeqReal('Вводите:', n).Min.Println
end.
-2-
begin
var n := ReadInteger('Длина последовательности:');
var a := ReadArrReal('Вводите:', n);
var mx := a.Max;
a.Count(p -> p = mx).Println
end.
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
2 года назад
7 лет назад