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

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

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

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

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

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]> max then

begin

max:= a[i];

j:= i;

end;

end;   

a[j]:= a[1];

a[1]:= max;

writeln();

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

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.