const n = 10; var a : array[1..n] of integer; i, max, imax : integer; begin for i:= 1 to n do readln(a[i]); max:= a[1]; imax:= 1; for i:= 1 to n do if a[i] > max then begin max:= a[i]; imax:= i; end; for i:= imax + 1 to n do a[i]:= 0; for i:= 1 to n do write(a[i],' '); end.