Составьте программку, которая наполняет массив а[1,,10 ] случайными числами в спектре

Если  наибольшее значение имеют несколько частей массива, то можно:

- менять местами только 1-ый максимальный элемент с первым элементом;

всем наибольшим элементам присвоить значение, которое имел

первый элемент массива.

program arr_max_1;

var a:array [1..10] of integer;

max, j: integer;

begin

j:= 1;

max:= 0;

randomize;

for i: integer:= 1 to 10 do

begin

a[i]:= random(11);

write(a[i] : 3);

if a[i]gt; max then

begin

max:= a[i];

j:= i;

end;

end;   

a[j]:= a[1];

a[1]:= max;

writeln();

//если необходимо поменять только 1-ый наивеличайший элемент, то
// последующую одну строчку можно удалить.  

for i:integer:= j + 1 to 10 do if a[i]= max then a[i]:= a[j];

for i: integer:= 1 to 10 do write(a[i] : 3);

end.