Question

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

Answer 1

Паскаль?
const n=<требуемое число элементов> ;
var a:array [1..n] of integer;
i,i_max,i_min: byte; max,min,x:integer;
begin
writeln(' Введите элементы массива через пробел');
for i:=1 to n do
read(a[i]);
max:=0; min:=1000;
i_max:=0; i_min:=0;
for i:=1 to n do
begin
if 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 do
write(a[i],'  ');
readln;
end.

Answer 2

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

Answer 3

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

Answer 4

нет

Answer 5

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

Answer 6

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