Предмет: Информатика, автор: KeffMen

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


Приложения:

KeffMen: можно в PascalAbc
KeffMen: Мне нужно написать программу по блок схеме
KeffMen: PascalABC.NET

Ответы

Автор ответа: Аноним
0
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
Приложения:
Похожие вопросы
Предмет: Математика, автор: mullinvg1