Будем считать, что ввод значения = 0 признак окончания ввода членов последовательности. Тогда можно попробовать так:
var a,max,maxn,n: integer; begin readln(a); max:=a; maxn:=1;n:=1; while a<>0 do begin readln(a); n:=n+1; if a>max then begin max:=a; maxn:=n; end; end; writeln('Максимальный : ',max,' номер : ',maxn); end.
Answers & Comments
Verified answer
Будем считать, что ввод значения = 0 признак окончания ввода членов последовательности. Тогда можно попробовать так:var a,max,maxn,n: integer;
begin
readln(a);
max:=a; maxn:=1;n:=1;
while a<>0 do begin
readln(a);
n:=n+1;
if a>max then begin
max:=a; maxn:=n;
end;
end;
writeln('Максимальный : ',max,' номер : ',maxn);
end.