Question

в заданном случайным образом массиве ...максимальное значение заменить минимальным а минимальное максимальным... выдает ошибку там где random(30);проверьте пожалуйста...Program A1;var a:array[1..30] of integer; amax,amin,i,k1,n,s:integer;beginwriteln('введите 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 thenamax:=a[i];amin:=a[1];for i:=2 to n do if a[i]<amin thenamin:=a[i];writeln('полученный массив имеет вид');amax:=amin;amin:=amax;for i:=1 to n do writeln(a[i],' ');end.

Answer 1

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.