program hhh;
Uses crt;
Var x,y:array [1..100] of integer;
i,j,n,max:integer;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
for i:=1 to n do begin
write ('Vvedite ',i, ' element ');
Readln (x[i]);
end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
Max:=x[1];
for i:=1 to n do
if x[i]>=max then begin
max:=x[i];
j:=i;
end;
Writeln (' Maxim element = ',max, ' stoit na ',j,'-oi pozicii');
Writeln;
writeln ('OTVET ');
for i:=1 to n do
y[i]:=x[i]*max;
for i:=1 to n do
write (y[i],' ');
Readln
end.