var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-i);
end.
Если решение задачи будет не верно, извените значит надо писать более подробно.
40 секунд - это 2/3 от 60 секунд
3мб × 2/3 = 2мб
Если М это переменная,хранящая номер максимального элемента, то фрагмент программы получится следующий
Ваше условие(if X[k]>X[M] then )
M = k
Пояснение:
если X[k](текущий) больше, чем Х[M](максимального элемента) то
М = к: присвоить М значение К, т.е. назначить Х[k] максимальным.