Задана последовательность из n целых чисел. Определить по-
рядковый номер максимального элемента последовательности.
Приложения:
Ответы
Ответ дал:
0
PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
var a:=ReadInteger;
var (max,¬):=(a,1);
for var i:=2 to n do begin
var b:=ReadInteger;
if n>max then
(max,¬):=(b,i)
end;
Println(¬)
end.
Замечание: имя not зарезервировано в языке Паскаль, поэтому использовано экранирование ¬
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger;
var a:=ReadInteger;
var (max,¬):=(a,1);
for var i:=2 to n do begin
var b:=ReadInteger;
if n>max then
(max,¬):=(b,i)
end;
Println(¬)
end.
Замечание: имя not зарезервировано в языке Паскаль, поэтому использовано экранирование ¬
Приложения:
Ответ дал:
0
Если имя ¬ нормально не читается, обновите страницу
Ответ дал:
0
Вот же криворукость у сайтописателей! То нельзя в комментарии набрать нестнадартный символ, то сочетание обычных символов выводится неверно. В общем, имя & not (пишется слитно) видно на скрине
Вас заинтересует
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад