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

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]end;
x:=max;
a[i_max]:=min;
a[i_min]:=x;
for i:=1 to n do
write(a[i],'  ');
readln;
end.

Comments

чёта она не работает

---

в паскале

---

В последней строчке точку поставьте

---

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

---

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

---

нет

---

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

---

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