Составить программу в массиве с N числами поменять местами максимальное и минимальное...

Question

Составить программу в массиве с N числами поменять местами максимальное и минимальное значения

Comments

какой размер массива?

---

попробовал запустить в паскале не робит

---

запусти в pascal abc

Answer 1

Var
a:array[1..1000] of integer;
i,min,max,c,n:integer;
begin
read(n);
min:=1;max:=1;
for i:=1 to n do read(a[i]);
for i:=1 to n do begin
if a[i]>a[max] then max:=i;
if a[i]end;
c:=a[min];
a[min]:=a[max];
a[max]:=c;
for i:=1 to n do write(a[i],' ');
end.