Const m=10; var a: array [1..m] of integer; i, imax: integer; begin for i:=1 to m do begin write('a[', i, '] = '); readln(a[i]); if i=1 then imax:=i; if a[i]>a[imax] then imax:=i end; if imax<m then begin for i:=imax+1 to m do write(a[i], ' '); end else writeln('Максимальный элемент - последний'); end.
var
a: array [1..m] of integer;
i, imax: integer;
begin
for i:=1 to m do
begin
write('a[', i, '] = ');
readln(a[i]);
if i=1 then
imax:=i;
if a[i]>a[imax] then
imax:=i
end;
if imax<m then
begin
for i:=imax+1 to m do
write(a[i], ' ');
end
else
writeln('Максимальный элемент - последний');
end.