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

const n=10;

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

i,max,min,imax,imin:integer;

begin

min:=100;

max:=1;

write('  Начальный массив: ');

for i:=1 to n do

begin

a[i]:=random(100)+1;

if a[i] gt; max then

begin

max:=a[i];

imax:=i

end;

if a[i] lt; min then  

begin

min:=a[i];

imin:=i

end;

write(a[i]:3,' ')

end;

writeln;

a[imax]:=min;

a[imin]:=max;

write('Полученный массив: ');

for i:=1 to n do write(a[i]:3,' ')

end.