Question

1.Найти минимальный элемент последовательности.
2.Определить, сколько раз встречается максимальный элемент в последовательности.
Две разные не совмещенные задачи, нужно написать на Pascal.

Answer 1

===== 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.