Question

Помогите!
Нужно написать программу в Паскале.
Нужно найти мах и мин в массиве и поменять их местами!

Answer 1

var a:array[0..100] of integer;
i:integer;
max,min:integer;
begin
  for i:=0 to 100 do begin
    if a[i]<a[min] then min:=i;
    if a[i]>a[max] then max:=i;
  end
  i:=a[max];
  a[max]:=a[min];
  a[min]:=i;
end.