// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(10,0,15); a.Println; var max:=a.Max; Write('Максимальный элемент ',max); Write(', элементов, равных ему - ',a.Where(x->x=max).Count-1) end.
Пример 7 15 8 1 15 13 6 15 5 11 Максимальный элемент 15, элементов, равных ему - 2
begin var a:=ArrRandom(20,0,150); a.Println; var (imin,imax):=(a.IndexMin,a.IndexMax); Writeln('Минимальный элемент ',a[imin],', максимальный ',a[imax]); Swap(a[imin],a[imax]); a.Println end.
"Найти" - это неверный термин. В программе найти - это вычислить. В Вашем случае, насколько можно понять, речь о выводе уже найденного значения переменной V. В общем случае формат вывода значения переменной записывается в виде a:m:n, где ф - имя переменной, m - общее количество символов выводимого значения, n - количество символов, отводимых под дробную часть. Если в числе дробная часть выводится с максимальной точностью, запись сокращается до a:m. Можно указать вместо m значение 0, это означает, что под целую часть числа отводится ровно столько позиций, сколько она занимает. Наконец, если число выводится с максимально возможной точностью и максимально компактно, пишут просто имя переменной, без двоеточий и прочего. Для целых чисел, естественно, :n не существует.
Посмотрим, как работает формат при выводе числа "пи" (во вложении)
10+6-4=12
10-7-4=-1