Вмассиве b(n) заменить каждый элемент массива максимальным элементом массива .

Const n=5; //размер массива
var a:array[1..n] of integer; i,xmax:intger;
begin
for  i:=1 to n do begin
a[i]:=random(10); //заполняем массив случайными числами от 1 до 10
write(a[i]); // выводим массив
end;
xmax:=a[1];
for i:=1 to n do begin
if a[i]>xmax then xmax:=a[i]
end;
for i:=1 to n do
a[i]:=xmax;
writeln('Конечный массив:');
for i:=1 to n do
write(a[i]);
end.