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

KeffMen:
можно в PascalAbc
Ответы
Автор ответа:
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 зарезервировано в языке Паскаль, поэтому использовано экранирование ¬
Приложения:

Похожие вопросы
Предмет: Литература,
автор: dakerakishev22
Предмет: История,
автор: Аноним
Предмет: Математика,
автор: mullinvg1
Предмет: Математика,
автор: ПолинаПоли