Question

Задана последовательность из n целых чисел. Определить по-
рядковый номер максимального элемента последовательности.

Answer 1

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger;
  var a:=ReadInteger;
  var (max,&not):=(a,1);
  for var i:=2 to n do begin
    var b:=ReadInteger;
    if n>max then
      (max,&not):=(b,i)
    end;
  Println(&not)
end.

Замечание: имя not зарезервировано в языке Паскаль, поэтому использовано экранирование &not