помогите!!! Дан массив из n случайных чисел (числа вводятся с клавиатуры).Поменять местами максимальные и минемальные элементы массива

Var a:array[1..n] of integer; тут чёто не правильно

Вы значение n в константах обозначили?

нет

Так обозначайте! Как она у вас по-другому работать должна?

а где обазначить ???

Паскаль?const n=<требуемое число элементов> ;var a:array [1..n] of integer;i,i_max,i_min: byte; max,min,x:integer;beginwriteln(' Введите элементы массива через пробел');for i:=1 to n doread(a[i]);max:=0; min:=1000;i_max:=0; i_min:=0;for i:=1 to n dobeginif a[i]>max then begin max:=a[i]; i_max:=i; end;if a[i]<min then begin min:=a[i]; i_min:=i; end;end;x:=max; a[i_max]:=min;a[i_min]:=x;for i:=1 to n dowrite(a[i],'  ');readln;end.