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

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]    if a[i]>a[max] then max:=i;
  end
  i:=a[max];
  a[max]:=a[min];
  a[min]:=i;
end.