uses crt;
var max,i,size,k:integer;
x:array[1..10000] of integer;
begin;
clrscr;
writeln('Введите размер массива');
readln(size);
writeln('Введите элементы массива');
FOR i := 1 TO size do
begin
readln(x[i]);
end;
max := x[1];
FOR i := 2 TO size do
begin
IF x[i] > max THEN
begin
max := x[i]; k := i;
end;
end;
x[k] := max * 2;
writeln('Массив с удвоенным максимальным элементом');
FOR i := 1 TO size do
begin
writeln (x[i]);
end;
end.