Паскаль. в целочисленном массиве из 10 элементов найти предмаксимальное по значению число , вывести его позицию. например, 2 0 3 1 1 максимальное число 3, предмаксимальное 2 его позиция 1.

ответ:

program predmax;

function getmax (aa: array of integer): integer;

var

  i, imax: integer;

begin

  imax : = low (aa);

  for i : = low (aa) + 1 to high (aa) do

    if aa [i] > aa [imax] then

      imax : = i;

  getmax : = imax + 1;

end;

var

  a: array [1..10] of integer;

  i, imax: integer;

begin

  write ('массив: ');

  for i : = low (a) to high (a) do

    read (a [i]);

  a [getmax (a)] : = - maxint;

  imax : = getmax (a);

  write ('предмаксимальный элемент a[', imax, '] = ', a [imax]);

  readln;

  readln;

end.

pascalabc.net

begin

  var a : = readarrinteger('введите 10 чисел: ', 10);

  var amax : = a.max;

  var s : = a.where(p -> p < > amax).orderdescending;

  if s.count > 0 then

  begin

    var apmax : = s.first;

    var i : = a.findindex(p -> p = apmax);

    println('предмаксимальный элемент', apmax, 'номер', i+1)

  end

  else

    println('нет решения: все элементы в массиве одинаковы')

end.

нет не возможно!

+/0##(