Question

Дан массив целых чисел.Поменять местами первый максимальный (если таковых несколько) и последний минимальный (если таковых несколько) по значению элементы массива. Число элементов в массиве не более 10-ти Pascal

Answer 1

var a:array[1..10]of integer;

max,min,i,n,i1,i2:integer;

begin

readln(n);

for i:=1 to n do readln(a[i]);

max:=a[1];

min:=a[1];

for i:=1 to n do begin

if a[i]>max then begin max:=a[i]; i1:=i; end;

if a[i]<=min then begin min:=a[i]; i2:=i; end;

end;

a[i1]:=a[i1]+a[i2];

a[i2]:=a[i1]-a[i2];

a[i1]:=a[i1]-a[i2];

for i:=1 to n do write(a[i],' ');

end.