Используя функцию swap поменять местами максимальный и минимальный элемент массива

@Norbes · Регистрация: 16.03.2018

Author24 — интернет-сервис помощи студентам

Нужно задать массив и используя функцию swap поменять местами максимальный и минимальный элемент.

@Joy · 22.03.2018, 18:23

Pascal

var 
  a:array of integer;
  n,idmax,idmin,i:integer;  
begin
  randomize;
  n:=ReadlnInteger('n=');
  setlength(a,n);
  idmax:=0;
  idmin:=0;
  for i:=0 to n-1 do begin
    a[i]:=random(100)-50;
    write(a[i],' ');
    if a[i]>a[idmax] then idmax:=i;
    if a[i]<a[idmin] then idmin:=i;
  end;
  writeln;
  writeln('Min=',a[idmin]);
  writeln('Max=',a[idmax]);
  Swap(a[idmax],a[idmin]);
  for i:=0 to n-1 do write(a[i],' ');
end.

@Norbes · 22.03.2018, 19:01 **[ТС]**

Joy, Большое спасибо, Вам.

@Norbes 0 / 0 / 0 Регистрация: 16.03.2018 Сообщений: 14
		1
	Используя функцию swap поменять местами максимальный и минимальный элемент массива 22.03.2018, 17:44. Показов 1486. Ответов 2 Метки нет (Все метки) Нужно задать массив и используя функцию swap поменять местами максимальный и минимальный элемент. 0

@Norbes 0 / 0 / 0 Регистрация: 16.03.2018 Сообщений: 14
	22.03.2018, 19:01 [ТС]	3
	Joy, Большое спасибо, Вам. 0

Используя функцию swap поменять местами максимальный и минимальный элемент массива

Решение