Взаданном случайным образом массиве максимальное значение заменить минимальным а минимальное выдает ошибку там где random(30); проверьте program a1; var a: array[1..30] of integer; amax,amin,i,k1,n,s: integer; begin writeln('введите n элементов
массива'); readln (n); for i: =1 to n do random(30); writeln('введённый массив имеет вид'); write (a[i], ' '); writeln; amax: =a[1]; k1: =1; for i: =2 to n do if a[i]> amax then amax: =a[i]; amin: =a[1]; for i: =2 to n do if a[i]

Program A1;
var a:array[1..30] of integer;
      amax,amin,i,imin,imax,n,s:integer;
begin
writeln('введите n элементов массива');
readln(n);
for i:=1 to n do a[i]:=random(30);
writeln('введённый массив имеет вид');
for i:=1 to n do write(a[i], '  ');
writeln;
amax:=a[1]; imiax:=1;
for i:=2 to n do 
if a[i]>amax then begin amax:=a[i]; imax:=i; end;
amin:=a[1]; imin:=1;
for i:=2 to n do 
if a[i]<amin then begin amin:=a[i]; imin:=i; end;
writeln('полученный массив имеет вид');
s:=a[imin];

a[imin]:=a[imax];

a[imax]:=s;
for i:=1 to n do 
writeln(a[i],'  ');
end.