Question

Дан одномерный массив заполненный двузначными числами найти наибольший элемент массива и наименьший.поменять их местами и новый массив вывести на экран

Answer 1

Var
  n, i, mn, mx:integer;
  a:array [1..10] of integer;
begin
  randomize;
  writeln('Ishodnii massiv');
  for i:=1 to 10 do
  begin
  a[i]:=random(90)+10;
  write(a[i],' ');
  end;
  writeln();
  mn:=1; mx:=1;
  for i:=1 to 10 do
  begin
  if a[mn]>a[i] then mn:=i;
  if a[mx]<a[i] then mx:=i;
  end;
  n:=a[mn];
  a[mn]:=a[mx];
  a[mx]:=n;
  writeln('Massiv posle obrabotki');
  for i:=1 to 10 do
  write(a[i],' ');
  writeln();
end.